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ore Programs than Ever Before?” 
A A Haven't we used that pitch al- 

ready? Yes—on our March 85 

cover. That issue contained 8 

programs, which at the time was 
more than ever before. This issue contains 14. Well—that's not 
entirely true. Our Rupert Report, Creating Your Own Games, 
and Commodore Roots columns include two programs each; 
so you could say 17. And if you count Flankspeed and Bug 
Repellent... 

But let’s not set the total too high. We don't want to make 
it impossible to top the next time we want to use the same 
cover blurb—which may be soon, as we add pages to your 
favorite Commodore magazine. (In fact, see next month's View 
from the Bridge for an announcement concerning an eight-page 
monthly addition to Ahoy!, covering the one major area of 
Commodore home computing that we've purposely neglected... 
until now! 

In the meantime, our bursting-at-the-seams editorial policy 
makes it necessary to abridge our usual banter in order to de- 
scribe the contents of this issue: 

* Morton Kevelson continues his 128 opus with a detailed 
explanation of the new computer's keyboard and its 1571 disk 
drive. (Turn to page 47.) 

* Orson Scott Card takes Creating Your Own Games into 
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a territory you've long anticipated — sprites —and provides Pig 
in a Poke, a complete game for children. (Turn to page 18.) 

* Dale Rupert continues his series of Rupert Reports on real- 
world simulations with this month's Tumbling Dice and Data 
Structures. (Turn to page 37.) 

* Old timers as well as new will find useful information 
оп disk maintenance and buying software in this month's edition 
of Cheryl Peterson's Cader's Column. (Turn to page 81.) 

* Mark Andrews concludes his two-part article on assem- 
bly language addressing in this month's Commodore Roots. 
(Turn to page 77.) 

* Fastnew will cut disk formatting time from 90 seconds 
to 20—and, more important, will prevent your 15415 read-write 
head from banging during the operation. (Turn to page 33.) 

* Ahoy! Dock will let you organize your collection of Ahoy! 
and other computer magazines for easy access to any article 
by category. (Turn to page 30.) 

* Start & End File Address will generate the load and end 
addresses of any program. (Turn to page 17.) 

* Go-Lister produces a printout of all BASIC program lines 
called by GOTO, GOSUB, THEN, and ON statements. (Turn 
to page 73.) 

* Dragon Type is the latest programming pearl from Ahoy! 
ace Bob Spirko—this one, an entertaining typing tutor. (Turn 
to page 61.) 

* Superhero generates a variety of mazes that you must ne- 
gotiate in order to protect the world from falling meteors, (Turn 
to page 17.) 

* You may find yourself hurling some /nvective of your own 
as our game of the same name turns the tables on you every 
15 seconds, scrambling the position of the joystick. (Turn to 
page 15.) 

* Fish Math offers multiplication practice for young chil- 
dren, arcade action for adults, and, best of all, a reason not 
to convert your VIC 20 to scrap metal yet! (Turn to page 29.) 

% Auto-Gen reads machine language routines from memory 
and turns them into data statements. (Turn to page 59.) 

* Moxeys Porch requires speed and dexterity to zig-zag 
around a freshly painted porch. (Turn to page 73.) 

* File Lock enables you to scratchproof any program file. 
(Turn to page 62.) 

Of course, you'll find Commodares at their frustrating best 
(turn to page 55); a new collection of reader-generated com- 
puter graphics in our Art Gallery (turn to page 34); reviews 
of products like On-Field Football, Blazing Paddles, and the 
Computereyes video acquisition system (turn to page 63); and 
Scuttlebutt, featuring all the Commodore-related news from 
the Summer "85 Consumer Electronics Show (turn to page 7). 

‘We remind you that our soon-to-debut programming tips col- 
umn is awaiting your submissions (see page 46); our bulletin 
board system is ready to take your calls 24 hours a day (see 
page 114); and our programs, in this issue and every issue, 
are available on disk or cassette (see page 23). 

It was our aim in producing this issue (as with every issue) 
to provide enough material to keep you stimulated, challenged, 
and occupied until next month. Even better, well into next 
month. We won't rest until we've got you hopelessly backed 
up on your reading. — David Allikas 
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А Viewpoint by John С. Dvorak 


s the success of Commodore a fad? A fluke? A freak of 

nature? We'll all know in the next year or so. Whatever 

i's quite likely that Commodore will have to 
fight an uphill battle to make a long-term success of the 
nifty Amiga Lorraine computer. 

Commodore has created the image of a company that makes 
а cheap disposable computer, When articles are written about 
home computers sent to the closet to die, what computer do 
they talk about? There is always a picture of a Commodore 
64 or VIC 20 languishing amongst the old ski boots. Hey, it 
isn't bad — it's disposable. 

Image is everything іп this business, as any ІВМ critic will 
tell you. The Commodore dilemma reminds me of two stories. 
‘The first goes back to the early days – ће days of the SOL-20 
computer. The SOL was released in 1977 and quickly found 
a following of users, many of whom attached a little Northstar 
floppy disk drive to the machine. A perfect combination, it 
was a compact system with the first commercial 5'4-inch disk 
drive. It was provided with a terrific BASIC and a nifty oper- 
ating system. Above all it was simple and fairly inexpensive. 

Processor technology, the company that made the SOL, 
wanted to do its own disk drive, so it spent a little over a year 
to come up with an expensive 8-inch hard sectored clunker 
called the Helios. This fiasco was probably as responsible as 
anything for grounding the whole Proc Tech business. The k 
to the whole blunder of the Helios is that if the company had 
seen what its customers wanted (cheap 54-inch disk systems) 
instead of what it thought it wanted (overpriced 8-inch clunkers) 
it would be in business today. 

To Commodore marketeers this anecdote questions the like- 
lihood of success if Commodore changes from a company that 
makes disposable computers to a company that makes hi-grade 
machines, Let's assume it can do it. There's still the image 
problem. 

Anecdote #2. I once attended a focus group that showed a 
proposed Atari computer that was MS-DOS, CP/M, Apple, 
and Atari compatible. It would cost $1500. Nobody knew who 
the manufacturer was. The question was asked: ;Would you 
buy this machine if it were an IBM?" It was one of those “highly 
likely, likely, unlikely, highly unlikely” type questions. Every- 
one said “highly likely.” The same question was repeated, but 
this time the manufacturer was Apple. Again, the answer was 
“highly likely” The focus group jumped to Atari and the an- 
swer became “highly unlikely" The group saw the Atari as а 
game computer. This was a semi-serious machine — not an Atari. 

Commodore was never even suggested at this group. Where 
would it stand? I shudder to think. Undoubtedly, it would be 
rated in the highly unlikely category. This will remain the case 
unless Commodore changes its image. 


It must begin to improve its image now. Commodore isnt | 


the first thing that comes to your mind when you think of the 
word “innovation.” That lack is the first thing that has to go 


if the company is to survive. Words like “experimental,” "in- 
sightful “advanced; or even “well-made” do not bring to mind 
Commodore, either. What about words like "cheap compu- 
ter” and “good deal”? Right! Commodore. 

The Amiga will never be a truly “cheap computer” in the 
near term. It might be a relative good deal, but that’s not what 
will sell the next generation of machines, Most users can get 
everything from a "good deal" to "trustworthy" and “reliable” 
from IBM. “Innovative” is the key word necessary for su 5 

Few companies have the wherewithal or opportunity to offer 
the public an advanced machine like the Amiga. Hopefully, 
the company will concentrate its marketing effort towards 
changing the public perception of Commodore. Hopefully it 
will create the right new image. 

We sure don't want to see the Amiga in the closet with the 
ski boots, do we? O 


Mr. Dvorak is the former editor of InfoWorld magazine and 
writer of Inside Track, InfoWorld's industry news column. 
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Still bullish on the home compu- 
ter market? You weren't at June's 
Consumer Electronics Show. The 
Wall Street Journal aptly described 
the computer software section as a 
“ghost town.” For us, the proof of the 
pudding was in the carrying: the bag 
of Commodore-related press releas- 
es we toted back to New York 
weighed in at twelve pounds, less 
than half of what we brought home 
from January's show in Las Vegas. 

Most vendors were modest in their 
offerings, by comparison to the end- 
less arrays of software displayed at 
last summer's show. Particularly no- 
ticeable was the dearth of education- 
al releases for the Commodore, long 
the most glutted sector of the 64 mar- 
ket, A number of prominent manu- 
facturers were conspicuous by their 
absence. Rumor has it that Atari, 
which had pulled out weeks before 
the show, was given their booth at a 
negligible cost to prevent the mass 


desertion the show's organizers feared 
their cancellation would signal. 

Of course, some believe that canny 
old Jack Tramiel cancelled primarily 
to convince Commodore not to rush 
the announcement of their new Ami- 
ga computer, since Atari's 520ST 
would not be there to steal the show 
in Amiga's absence. By reentering as 
an exhibitor at the eleventh hour— 
Jackintosh and all—Tramiel left Com- 
modore with nowhere near sufficient 
time to ready an Amiga presentation. 
Believe this tale of corporate intrigue 
if you will. The fact is that, even 
without Amiga, Commodore domin- 
ated the floor (helped by the fact that 
Atari wound up tucked away in a cor- 
ner of the upstairs level). 

While the hordes of newshungry 
reporters that invaded the Commo- 
dore booth were disappointed by 
Amigas absence, Commodore did 
display a most impressive collection 
of hardware—almost none of it, un- 


Left: Commodore, star at- 

traction of CES. Right: Com- 
modores PCIO and PC20 IBM clones. 
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fortunately, intended for sale in North 
America. Among the new computers 
planned for the European market are 
the ІВМ PC-compatible PCIO and 
PC20 (pictured on this page), the 
Unix-compatible Commodore 900 
Business Computer (a multiuser 
workstation), and the 128D, featur- 
ing a built-in disk drive and inde- 
pendent keyboard. 

Of greater interest to American and 
Canadian readers were the following 
peripherals compatible with the 
С-128 (and in some cases the C-64 
as well), some previously announced 
but seen for the first time at the 
convention: 

* The 1572 Dual Disk Drive, com- 
prising two horizontal 5'4” drives, 
each reading double-sided, single- 
density disks with up to 340K (for- 
matted) memory in С-128 mode and 
410K in CP/M mode. 

* The Commodore 1670 Modem/ 
1200, utilizing VLSI technology to 


QY! 


deliver а 1200-baud rate at a price ex- 
pected to be under $100. Using “AT” 
Hayes command protocol, the 1670 
has auto-dialing, auto answer, auto 
speed, and auto mode selection. 

* Compatible with the С-128 and 
C-64, the MPS 1000 Printer offers 


©з be 


draft (100 cps), near letter quality (16 
cps), and graphics modes, and a four- 
і іса (80), Elite (96), 
(132), and Con- 
densed Elite (160). 

* Just like the Macintosh's rodent, 
the Commodore Mouse will let 128 
users sidestep special function keys 
and commands by moving the devi 
over a desktop, thereby positioning 
onscreen icons. 

Commodore also exhibited the 
software currently available for the 
128: Jane 2.0, an integrated word pro- 
cessing/spreadsheet/filing program 
developed by Arktronics Corporation 
and permitting input with the Com- 
modore mouse; the previously an- 
nounced Perfect series from Thorn 
EMI (consisting of Perfect Writer, 
Perfect Calc, and Perfect Filer), and 
а 128 version of Commodore's own 
Micro Illustrator. 

Doesn't sound like a lot? There's 
more: Typing Professor and A Com- 
prehensive Course in BASIC will be 
coming from Commodore, as well as 
programs from such companies as 
Batteries Included, Timeworks, Scho- 
lastic, Spinnaker, Digital Solutions, 
Precision Software, and Melodian. 

Still, an unimpressive amount of 
software for a computer announced 
five months ago—particularly a 
Commodore computer, the heir ap- 


parent to the 64 throne. Consider it 
опе more indication of the depressed 
state of the home computer software 
business. Or as support for one last 
rumor—that a sizeable percentage of 
companies have already directed the 
bulk of their programming efforts to- 
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35CPS DAISY WHEEL 

Aimed at the office market, the Al- 
phapro 401 daisy wheel printer offers 
a print speed of 35 characters per sec- 
ond, path seeking logic, and a 2K 
(expandable to 16K) buffer for $599. 
The printer emulates the Diablo 630 
printer protocols and uses Diablo- 
and Qume-compatible print wheels 
and ribbons. 

Alphacom Inc., 2323 South Bas- 
com Ave., Campbell, CA 95008 
(phone: 408-559-8000). 


RGB MONITOR 

An alternative to the Commodore 
1902, Sakata’s SC-150 is a compos- 
ite/RGB high resolution monitor with 
13" screen, 42mm dot pitch, and 
dark face finish. It will operate with 
NTSC Composite, Y-C, RGBI, 
XRGB, and RGB input. Price 
$49900. 

Sakata U.S.A. Corporation, 651 
Bonnie Lane, Elk Grove Village, IL 
60007 (phone: 312-593-3211). 


EDUCATIONAL RELEASES 
Two C-64 programs for students in 
grades 7-12: 
Homework Helper Math Word 
Problems ($32.95) aids students, 


QU х7 х 155) 
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through a series of questions and 
prompts, in building the correct equa- 
tion to solve a problem. 
Homework Helper Writing 
($32.95) guides students through or- 
ganizing and outlining their ideas for 
book reports, essays, and research pa- 


Sakata composite/RGB hi-res monitor. 
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pers, then writing the text with the 
program's word processing and print- 
ing capabilities. 

Spinnaker Software, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

Four classics-based C-64 programs 
from Fisher-Price Learning Software 
($24.95 each): 

Peter Rabbit Reading lets children 
3-6 guide the famed bunny through 
а series of escapades, identifying con- 
sonant and vowel sounds and match- 
ing words to pictures. 

Prokofiev's Peter and the Wolf Mu- 
sic introduces children 3-6 to the 
principles of music through seven 
games. 

Jungle Book Reading teaches chil- 
dren 6-9 reading comprehension as 
they guide Mowgli the jungle boy 
through encounters with an assort- 
ment of animals. 

The First Men in the Moon Math 
requires players 9-12 to help Profes- 
sor Cavor solve the math problems 
with which the Sellenite creatures 
have blocked his way. 

Fisher-Price Learning Software, 
PO. Box 1327 Cambridge, MA 
02238 (phone: 617-494-1222). 

KIDWare has released 60 educa- 
tional programs for the C-64, two to 
each tape ($9.95) or disk (511.95), for 
children 1-16 years old. For more in- 


formation contact KIDWare, PO. Box 
9762, Moscow, ID 83843 (phone: 
208-882-3830). 

Tales of Discovery makes the child 
the central character in two stories: 
Pirates of the Soft Seas (solve vocab- 
ulary and math puzzles to outwit pi- 
rates and find buried treasure) and 
Fossils Alive! (search for fossils and 
learn how a neighborhood looked in 
prehistoric times). For the C-64; 
$29.95. 

Scholastic Software, 730 Broadway, 
New York, NY 10003 (phone: 212- 
505-3000). 

From Sierra On-Line: 

Goofrs Word Factory teaches 
grammer via three games involving 
conveyor belts and a kooky machine. 
For the C-64; $24.95. 

Mickey’ 3-in-1 ($49.95) consists of 
à word processor, data file manager, 
and telecommunications system de- 
signed for children. For the C-128. 

Sierra On-Line, Inc., Coarsegold, 
СА 93614 (phone: 209-683-6858). 


G'WAN, HAVE S'MORE 

Cardcos S'MORE (for Super 
Memory Optimized RAM/ROM Ex- 
pansion) is а 569,95 cartridge-based 
program that will provide your C-64 
with 61,183 bytes of free RAM (that's 
including the 38,911 already present), 
over 60 new and enhanced BASIC 
commands and functions, full error 
trapping and automatic error help 
(which lists the error line and places 
а flashing cursor at the beginning of 
the program statement containing the 
error), full command selection, full 
up-down scrolling through program. 
listings, and direct access to items 
normally PEEKed and POKEd. 

Because S'MOREs command 
structure is similar to the С-1285, 
C-64 programmers can make use of 
the advanced programming tech- 
niques available on the C-128, facili- 
tating later conversion. 

Cardco, Іпс., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 


SYNCALC TEMPLATES 

For use with the Syncale spread- 
sheet for the C-64, the Syncalc Tem- 
plates Disk ($19.95) provides 22 com- 
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monly used forms and formulas for 
financial planning, budgeting, and 
record keeping. The disk also illus- 
trates basic design principles for con- 
structing or modifying special appli- 
cations spreadsheets, from simple to 
complex. 

Broderbund Software, 17 Paul 
Drive, San Rafael, CA 94903 (phone: 
415-479-1170). 


DEATH AND REVISIONS 

Тах Command Planner, which is 
designed to let individuals test the tax 
effects of various financial alterna- 
tives, has been revised to account for 
Treasury Department proposals to 
eliminate many existing tax shelters. 
Purchasers of earlier versions can ob- 
tain the update by returning their pro- 
gram to the manufacturer. For new 
users, price of the 64-compatible ver- 
sion is $49.95. 

Practical Programs, Inc., PO. Box 
93104, 625 N. Milwaukee St., Mil- 
waukee, WI 53202 (phone: 414- 
278-0829). 


ELECTRONIC COOKBOOK 

The Electronic Cookbook lets C-64 
users store, display, edit, and print 

ecipes, 31 of which are included on 

the disk. Price is $20 (Canada $25) 
plus $2.50 postage. 

Arcturus Software, 2332 Palisade 
Dr. SW, Calgary, Alberta, T2V 3VI 
Canada (phone: 403-281-1632). 


KWIK-PITCH 

Datamost has followed up the re- 
lease of Kwik-Load! and Kwik-Write!, 
the first two releases in its Kwik-Würe! 
line of $19.95 software for the C-64, 
with Kwik-Spell! (spelling checker for 
Kwik-Write! and other C-64 word pro- 
cessors), Kwik-File! (database man- 
agement), Kwik-Calc! (spreadsheet), 
Kwik-Paint! (graphics editor), Kwik- 
Check! (check balancing and main- 
tenance), Kwik-Pad! (desk secretary), 
and Kwik-Phone! (communications). 

Each Kwik-Ware! program has the 
Kwik-Load! fast loading program 
built in, and most are compatible 
with other programs in the series. 

Datamost Inc., 19821 Nordhoff St., 
Northridge, CA 91324 (phone: 818- 
709-1202). 


VIDEOGAMING 
COLLECTORS 
ITEMS 


WE HAVE ACQUIRED THE 
REMAINING COPIES OF THE 
FOURTEEN RAREST ISSUES OF 

VIDEOGAMING AND 
COMPUTERGAMING 
ILLUSTRATED. AS REFERENCE 
TOOLS THEY ARE INVALUABLE 
AND THEY CONTAIN SOME 


UR OFF. ALL 
FOURTEEN ISSUES FOR ONLY 
$15.95 (INCLUDING POSTAGE 

AND HANDLING; OUTSIDE 


THE US. ADD 56.00). 
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GAMES FOR THE 64, 128, 
AMIGA 

Two graphics-and-text adventure 
games from Spinnakers Telarium 
subsidiary: 

Perry Mason: The Case of the 
Mandarin Murder takes place in the 
courtroom, where the player can do 
everything a courtroom lawyer might, 
from cross-examining and introduc- 
ing evidence to consulting privately 
with the judge. The degree of char- 
acters’ cooperativeness varies as a 
sult of the player's interaction with 
them. 

Based on the series of science fic- 
tion novels by Roger Zelazny, Nine 
Princes in Amber enmeshes the play- 
er in negotiation, politics, and alli- 
ances as, in the role of the prince 
Corwin, he battles his brothers and 
sisters for the throne of Amber. 
Again, the game's outcome depends 
heavily upon the player's interaction 
with the other characters. 

For the C-64; $32.95 each. 

Telarium Corp, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

Lode Runners Rescue casts the 
player as Alexandra, daughter of the 
original Lode Runner who is being 
held prisoner deep underground by 
the evil Bungeling Empire. She must 
negotiate 46 mazes on her way to free 
her father. Of course, included is a 
game editor that lets the player con- 
struct an unlimited number of maz- 
es full of elevators, trap doors, en- 
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King’s Quest 
П: Romancing 
the Throne 
(from Sierra 
On-Line, Inc.) 
is to our knowl- 
edge the first 
game an- 
nounced for 
Commodore's 
Amiga compu- 
ter. А С-128 ver- 
sion will also be 
available. 
READER 
SERVICE 

NO. 137 
TSS 


emy guards, and rushing rivers, For 
the C-64; $29.95. 

Synapse Software, 17 Paul Drive, 
San Rafael, CA 94903-2101 (phone: 
415-479-1170). 

Assorted new C-64 releases from 


Gato: а C-128 submarine simulation. 
READER SERVICE NO. 138. 


Winter Games features six sports, 
including ski jumping, a ski biathlon 
and hotdogging, speed and freestyle 
events, and a bobsled race. 

The Worlds Greatest Football 
Game allows coaches to develop their 
own plays or customize existing ones, 
and store up to 120 of them in a play- 
book. The action can be viewed from 
a sideline, bird's-eye, or closeup view. 

Joining Ballblazer and Rescue on 
Fractalus!, previous releases іп 
Ерухз Lucasfilm Games Division: 


The Eidolon, centering around a 19th 
century machine that taps psycho-kin- 
etic forces, transporting the player to 
a magic realm of caverns populated 
with Trolls, Greps, and Guardian 
Dragons; and Koronis Rift, compel- 
ling the player to wrest the secrets of 
the ancients from a genetically engin- 
eered race of guardians that outlived 
their creators. 

Jet Combat Simulator recreates ac- 
tual flight situations that confront an 
F-I5 pilot, including cross-wind tur- 
bulence and blind landings. Four op- 
tions let the player progress from 
landing practice to air-to-air combat. 

The components of the Temple of 
Apshai trilogy Temple of Apshai, 
Curse of Ra, and Upper Reaches of. 
Apshai — will be sold together for the 
price of a single game. 

АП of the above Epyx games will 
retail for $29-$35 (except Jet Com- 
bat Simulator and the Apshai 
trilogy—$19-$29). 

Epyx, Inc., 1043 Kiel Court, Sun- 
nyvale, CA 94089 (phone: 408- 
745-0700). 

New for the 64 from Activision: 

As Hacker begins, the player has 
broken into an unknown computer 
system that conceals a mystery. With 
no background information, no rules, 
and no clues, he must find out whose 
system he's hooked into and what's 
going on. 

Fast Tracks: The Computer Slot 
Car Construction Kit lets the user 
build a race course piece by piece 
from a variety of types of track 
sections, view the course as a whole, 
and then race his own custom-de- 
signed car. Favorite courses can be 
saved to disk for future use. 

Though certain to bring a sneer to. 
Orson Scott Card's lips, Garry Kitch- 
ens Gamemaker: The Computer 
Game Design Kit joins the ranks оГ 
programs that make it possible to сге- 
ate games without programming 
knowledge. The user selects 
characters (rocket ship, running man, 
etc.) from a menu, along with their 
speed and direction, background, 
sound effects, and music. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, CA 
94043 (phone: 415-960-0410). 


Three new C-64 simulations from 
MicroProse, each $34.95: 

Acrojet, The Advanced Flight Sim- 
ulator, for computer pilots who've 
won their wings in Solo Flight, of- 
fers a Decathlon of Sport Aviation 
events, including spot landings, rib- 
bon cuts, acrobatics, and other high 
performance maneuvers. 

Gunship, The Helicopter Simula- 
tor, simulates operation of the new 
AH-64 Apache attack helicopter and 
features multiple weapon and navi- 
gation systems. 

Silent Service, The Submarine Sim- 
ulation, provides a selection of his- 
torical scenarios from single 
tacks to multipatrol mi 
graduated enemy skills. 

MicroProse Software, 120 Lake- 
front Drive, Hunt Valley, MD 21030 
(phone: 301-667-1151). 

C-64, C-128, and Amiga releases 
from Sierra On-Line: 

Gato, а submarine simulation pre- 
viously released for IBM and Apple, 
will be converted to the С-128. The 
game transforms the player into a 
World War II sub commander, prowl- 
ing the Pacific in search of the Jap- 

Imperial Fleet. Price: $39.95. 

5 Quest II: Romancing The 
Throne, featuring 3D animated 
graphics, will be available in С-128 
and Amiga versions. Р! $49.95. 
Stunt Flyer ($39.95) will let C-64 
users pilot a Pitts Special through a 
number of aerobatic sequences. 

The Black Onyx ($39.95) takes 
С-64 adventurers down into a dun- 
geon maze, then to the top of a mys- 
terious tower. 

Sierra On-Line, Inc., Coarsegold, 
СА 93614 (phone: 209-683-6858). 


COMPUTER RACK SYSTEM 

Designed for Commodore systems, 
the Hi-Rise computer/printer stand 
($39.95) will allow users to store their 
С-64 or VIC 20 monitor, printer, and 
disk drive (or printer paper) in less 
than two square feet of desktop space. 
Crafted of solid oak, it's a sure bet 
to outlive the rest of your configura- 
tion, 

Unique Wood Products, РО. Box 
52, Mankato, MN 56001 (phone: 
507-625-5123). 


BIC ROGERS? 

The Space Pen input device differs 
from other light pens in its ability to 
detect the third dimension, or “27 
axis, enabling the user to operate in 
a six foot area in front of the com- 
puter display. While no software cur- 
rently available can utilize this сара- 
bility, the pen will work in two di- 
mensions with all touch tablet paint 
programs and an assortment of popu- 
lar packages. 

C-64 or VIC 20 version $150, 
Amiga version 5175, including samp- 
ler software. 

Soniture, Inc., 480 Vandell Way, 
Campbell, CA 95131 (phone: 408- 
866-4616). 


Space Pen detects third, or 2, axis. 
READER SERVICE NO. 139 


Hi-Rise stand: sturdy and practical. 
READER SERVICE NO. 140 
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GIANT 
HEAVY DUTY 
INFLATABLE BOATS 
2 MAN $38 
3 MAN $50 
4 MAN $65 


Before Midnight. 
For The Next 30 Days 

As part of an advertising test, Dunlap Boat Mig. 
will send any of above size boats to anyone who 
reads and responds to this test before the next 30 
days. Each Boat Lot Мо. (2-26 PVC) is constructed 
of tough high density fabric (resistant to abrasions, 
sunlight, salt & ой), electronically welded em- 
bossed seams, nylon safety line grommeted all 
around, heavy duty car locks, 3 separate air cham- 
bers for extra safety (4 air chambers in 4-man), 
selHocking safety valves, bow lifting & towing han- 
Фе and are recommended for marine, ocean and 
fresh water recreation, camping, fishing or a family 
lun boat. Each boat will be accompanied with а 
LIFETIME guarantee that it must perform 10096 
ог it wil be replaced free. Add $7 handling & 
Crating for each boat requested. Dunlap Boat Mig. 
pays all shipping. И your order is received within 
the next ten days you will receive FREE a com 
bined hand/foot inflator/deflator bellows style 
pump for each boat requested. Should you wish 
to retur your boat you may do so for a full refund 
Any letter postmarked affer 30 days will bo ге. 
turned. LIMIT three (3) boats per address, no өх- 


Country call 1-800-824-9988 for Boat Dept. #3418 | 
(Сай. residents call collect 213-735-9363), before | 
midnight seven days a week. Have credit card 


ready. 
Reader Service No. 106 


10-20 MEG HARD DRIVE 

If you can live with the irony of 
spending $100 for your computer and 
15-30 times that for a storage device, 
Fiscal Information has the peripher- 
al to fulfill your most extravagant fan- 
tasies. Lt. Kernal, a hard disk drive 
for the C-64, will access data up to 
43 times faster than the 1541 (though 
compatible with it in most applica- 
tions). The drive also provides 34 ad- 
ditional or enhanced system com- 
mands, autoboot of a selected pro- 
gram, built-in CP/M-like command 
features, up to 10 logical drives, and 
the ability to keep up to seven files 
open simultaneously. Mass and archi- 
val backup and restore facilities are 
available. 

10MB version 51595; 20MB, 
$1995. Streaming tape option, which 
backs up 10 megabytes in 2 minutes, 
if $1525. 

Fiscal Information Inc., 143 Exec- 
utive Circle, Daytona Beach, FL 
32014 (phone: 1-800-874-1890). 
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ЕСОМ NEWS 

General Electric is offering two 
hours of access to CompuServe's ex- 
есшіуе information service with the 
purchase of a $99.95 GE telephone 
modem, model 3-8200 (see May '85 
Scuttlebutt, page 9). 

General Electric Company, Elec- 
tronics Park, Syracuse, NY 13221 
(phone: 315-456-2446). 


ness and finance, s 
education, general reference, and 
more. Cost is 575 to sign up (525 
credit) plus usage charges ranging 
from $17.50-$125 an hour. 

BRS Information Technologic 
1200 Rt. 7, Latham, NY 1210 (phone 
518-783-1161). 


SCREENPLAY REBATES 

Software Resource Group will of- 
fer a $5 rebate direct to the consumer 
on purchase of all Screenplay and 
Brown Bag Software, 

Software Resource Group, 1095 
Airport Road, Minden, NV 89423 
(phone: 702-782-9731). 


PRINT SHOP GRAPHI 

The Graphics Library, D. 
like the previously released Disk One, 
provides additional designs, symbols, 
and pictures for use with The Print 
Shop, this time in the categories of 
Jobs, Hobbies, People, Places, T 
el, and Health. For the 64; $24.95. 

Broderbund Software, 17 Paul 
Drive, San Rafael, CA 94903-2101 
(phone: 415-479-1170). 


MAKE YOUR OWN 
KIND OF MUSIC 

The two latest additions to Master- 
Soft's Mastery in Music series, Trum- 
pet Master and Clarinet Master, let 
the student personalize his practice 
music with his choice of key and time 
signatures, note type, and note range. 
Instant access to music facts and fin- 
gerings is always available. Scales, 
thirds, and intervals in every major 
are included. For the C-64; 
$49.95 each. 

MasterSoft, PO. Box 1027, Bend, 
OR 97709 (phone: 503-388-7654). 


RST FROM JUKI 

Juki's first dot matrix printer, the 
5510, churns out type at speeds rang- 
ing from 30 cps (near-letter quality 
mode) to 180 cps (draft mode). The 
printer's bidirectional, logic-seeking 
system combines a 9” platen with as- 
sorted printing width capabilities. In- 
cluded is a built-in tractor, ЗК buf- 
fer (expandable to ISK). Suggested 
retail price is under $500. 

Additionally, Juki has extended its 
current customer service warranty on 
all its microcomputer printers to one 
year from date of purchase, 

Juki Office Machine Corp., 299 
Market St., Saddle Brook, NJ 07662 
(phone: 800-932-0590). 


MORSE CODE TUTOR 

IMCT offers a tutorial in Interna- 
tional Morse Code, and a training 
program to increase your code speed 
from 1-25 words a minute. For the 
64; $18.95 (PA residents add 6% sales 
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tax). 


AC3L Software, P.O. Box 7, New 
Derry, PA 15671. 


Two non-games for the C-64 from 
Activision: 

The Complete Computer Fireworks 
Celebration Kit lets patriots create 
fireworks displays, add music and 
special messages, and turn their dis- 
plays into computer greeting cards. 

Alter Ego allows users to vicarious- 
ly experience life as someone else, 
building a unique personality through 
reactions to a variety of emotional, 
and other situations. 
on, Inc., 2350 Bayshore 
Frontage Road, Mountain View, CA 
94043 (phone: 415-960-0410). 


BOOKS 

The Greatest Games: The 93 Best. 
Computer Games of All Time (by 
Ahoy! reviewers Dan Gutman and 
Shay Addams) reviews 93 games in 
18 categories. Price is $9.95. 

COMPUTE! Publications, Inc., 
324 W. Wendover Ave., Suite 200, 
Greensboro, NC 27408 (phone: 919- 
275-9809). 

The latest edition of the Sofisel 
Product Encyclopedia, covering more 
than 3,000 software and hardware 
products in its 334 pages, is available 
for $29.95. 

Softsel Marketing Dept., РО. Box 
6080, Inglewood, CA 90312 (phone: 
714-640-7375). 

Problem Solving in BASIC with the 
Commodore 64 consists of a book 
and a 30-minute videotape that take 
the user on a tour of top-down pro- 
gramming on the 64. Price is $59.95. 

Hayden Book Company, 10 Mul- 
holland Drive, Hasbrouck Heights, 
NJ 07604 (phone: 201-393-6306). 

Marketing Your Software ($16.95) 
offers a 26-step plan, from defining 
objectives and analyzing competition 
to investigating distribution and de- 
signing packaging. 

Addison-Wesey, General Publish- 
ing Group, Reading, MA 01867. 


Graphics Library: pix for Print Shop. 
READER SERVICE NO. 150 
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МС-20 ond C64 are registered trademarks of C 


ViC-Talker and 64-Talker 
are priced at $89 each 
and are available from 


Talktronics, Inc. 
27341 Eastridge Drive 
El Toro, CA 92630 
(714) 768-4220 
9 AM - 5 РМ, PST 


YOUR MISSION 
TO EXPLORE 
NEW WORLDS 


Tap into an exciting computer 
resource available for the VIC-20 
опа C64 computers: synthesized 
speech. 

Talktronics brings to you two. 
extremely powerful plug-in 
speech synthesizers to le! your 
computer sound off in ways 

you never knew were possible. 
VIC-Talker ond 64-Talker 
enhance your educational 
programs and games, aid the 
handicapped and generally 
increase computer 
"frlendiiness". 


Look at these. 
sophisticated featur 


* Self contained firmware - 
disk or tape not required 
for synthesis, 

* Audio mixer to combine. 
computer generated 
sounds with the synthe- 
sized voice for VIC- 
Talker or 64-Talker, 

“ Two user-programmable 
voices that can be as 


à 


varied as your 

imagination - from 
b chipmunks to robot 
4 warriors, 


* Translation of ordinary. 
text directly to synthesized 
speech using pronunciation 

Tules for English, 

* Nonvolatile user- 
programmable exception 

word memory permits special 
Pronunciation or translation of. 
words you select and is retained 
when power is off. 

* Contains rules for pronuncia- 
tion of text, numbers, punctuation 
and BASIC command words 


* Accurate translation of number strings іп decimal, dollors and cents, 


fractions, BASIC equations, time and phone numbers, 


<< * Easily controlled with simple commands from BASIC or machine language - 


like using the printer or disk. 


* Proofread mode announces the punctuation In a diferent voice - lets your 


computer "speak" BASIC program listings. 


* Change the voices along with speaking text, Make it sing! 


*The voice comes out on the TV or monitor. 


xnmodore Business Machines. intl 


Reader Service No. 163 


THE 996 DISKETTE 


Are you paying too much for diskottes? Try our 
first quality, primo, 5%” diskettes (no rejects, no 
seconds) ai these fantasic sale prices and save 
savo, SAVE! Disks are packaged in boxes of 50: 
басп box contains 5 shrink-wrapped 10-packs that 
include diskottes in sleoves, labels, and wrie- 
protect tabs. 

Each diskette із certfied to be 100% error free and 
Comes with a Meme warranty (f you havo а 
problem, we'll replace the diskette). All ске 
include hub reinforcement nings and write 
protect notch 

All diskettes aro double density and work in ei 
single or double density daves. 

58. DD Dishettes, Box of 50 

32391 $49.50-s99¢ ез! 


DS, DD Diskettes, Box of 50 
32403 564.50-129 оз! 


The Most Complete Disk Drive 
You Can Buy 


Includes Word Processor, Spread Sheet, and 
Data Base Managor 


INDUS GT ony $259 


State-olthe-ant дий dive for C44 and VIC-20 teres LED. 


33443 Indus GT Disk Drive. ому "259 


CARTRIDGE EXPANDER 
Plus $22.95 
FAST LOAD 
OFFER! 


Expander 


34216 Fast Load Cartridge is. 
Fast Load ONLY $22.95 
with purchase of cartridge expander! 


We gladly accept 
mail orders! 


РО. Box 6578 


LOWEST PRICES! 


We can олег you some ot the lowest prices in the country 
Popular printers, monitors and interfaces. Our normal prices are al 
fom. Dut fo make sure you get the best deal you can, we will also moot most 


competitive prices in ths publication when placed on an equal 
(Remember —we don't charge lor use o your credit card, impose ex 
nipping lees, of use any other hiddan extras о boomt the price you 
Due to the таре change in prices in 


tomputer industry, wo Can OF 
tems ordered or shpped on a^. 

Customers your charge card is bled al tne of shipment oniy cr fne ms 
Shipped-—no early Biking, no long wa lor the merchangise you already 


pr 
* THE BEST PRICES « THE BEST SERVICE + 
WHY SHOP ANYWHERE ELSE? 


COMPUTERFACTS® >< лме 


Technical Service Data for 

Your Computer and Peripherals 
неее EO EP EIER EE base DUET E 
1107 Corrado м Cum = 

Din Somer Comoe 
Bi Sete soc 


33496 Соттодов 1824 Pre 
33808 Commodore CM Compute 
3334 Сотто VOI Morir 


The РР! (Parallel Pnnter Interface) from DSI is a high: 
performance graphics printer intedace or your Commo- 

ore 64 or VIC-20, offered at an unbelievable price! Тһе PPI 
fully emulates a Commodore printer so thal ай software writen 
for Commodore computers and printers can be run with tne РР! 


GRAPHICS PRINTER INTERFACE 
We е 


specific printer. Works wih Star, Epson, ВМС, and many more. Comes 
completa with all necessary cables for quick instalation and includes 
i$y-o-lolow users manual 


through your tractor - feed printer! 
Simply place your letemead. checks. 
invoices, forms, even legal-size sheets 
into the durable flexible plastic camer and 


Discover те sawngs and easy sorong а 
эше trom Tenes Computer Express 


5 ааа а 
2.95 | |=" 
cS 
: 511.95 
: 


31627 Dust Cover and Catalog 22004 


SHIPPING CH 
ORDER AMOUNT CHARGE 
less than $20.00 5375 


South Bend, IN 46660 гүзүү dus 


Questions? Call 
219/259-7051 


540.00-574:99 575 
375.00-5149,99 675 
5150.00-529999 775 
5300 & up. 875 
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INVECTIVE 


isnt like any other game you've 
layed. Nothing chases you and you're 
anything. You simply move 

around the game board collecting points by 

snapping up green figures at 10 points each. 
Of course there's a catch. The joystick is scrambled 
so that what used to move up now moves perhaps left, 
what used to move left now moves perhaps right, etc. 
The joystick is scrambled every 15 seconds to a new ran- 
domly chosen configuration. If you bump a blue figure 
the joystick gets rescrambled and you lose 20 points. If 
you bump a yellow figure you lose 50 points. 

In the first 15 seconds of the 90 second game, the joy- 
stick operates normally. After that it's hard going all the 
way, since everything is against you. You'll be lucky to 
ore as high as fi 


zero the first few times you play | 


"fing Ll мен 


"Thats all you need to know to play. From here on I'll | 


just ramble about technical matters. 


When you type /nvective there is no need to copy the | 


blank lines or REM statement lines. 

Line 430 tells the computer to scramble the joystick 
every 15 seconds. If youd like a different number of sec- 
onds, substitute your number for 15 at both places in the 
line. Line 680 limits play time to 90 seconds, which is 
expressed as 130 (for 1 minute 30 seconds) in the line. 

Lines 750 to 850 tell you how the joystick has been 
scrambled. The game is much harder if you don't have 
this information, so you might want to leave it out. The 
easiest way to do this is to change the command to print 
brown letters to а command to print medium gray let- 
ters. Since the background is medium gray the letters will 
be invisible. The print brown (Commodore key and 2 


key) is in line 750 and is easy to change to print medium | 


gray (Commodore key and 5 key). 

You may be wondering how the joystick can be scram- 
bled. The normal way to use the jo k is to first get 
the value in the joystick address (location 56320). This 
value is then ANDed with 15 to get rid of the meaning- 
less first four bits of the byte. The result is then sub- 
tracted from 15. A result of 0 means no change, 1 means 
up, 2 means down, 4 means left, and 8 means right. So 
far that's all by the book and all that remains is IF state- 


By George Trepal 
ments. If the value is 1 move up, if 2 move down, and 
so on. But what would happen if we told the computer 
to move right instead of up when the value was I? An- 
swer: it would work just fine. 

The values on how to move are held in the J( ) array 
and the pointers relating the J( ) values to the joystick 
are in the SA( ) array. 

Lines 690 and 700 shuffle the SA( ) array. The algo- 
rithm starts with the first element of an array and ex- 
changes it with a randomly chosen element of the array. 
It then repeats the process with the second, third, etc, 
elements. This technique is useful for computer card shuf- 
SEE PROGRAM LISTING ON PAGE 112 


Nobody copies letter !! 


Since Novembor 1984, Mr. Nibble has 
successfully copied heavily protected 
diskottes for grateful C-64 owners! 


ип. NIBBLE 
delivers ! 


The next generation in archival 
here today! 


— no knowledge 


! LOVE мй NIBBLE — i not, 
Wve 10 dys for fuf refund 


Own THE FINEST DISK COPIER SYSTEM for 


The C-64 and 1541 disk drive- Onder ілу 1 


FULL CIRCLE SOFTWARE, INC. 
РО Bor 1373 
Dayton, Омо 45401 
Phone ($13; 222-202 


Full Circle 


NT 


$49.95 zz 


CITAS 


Special MSD Version now available! 
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Stop playing "Hide-and-Seek" with your Disk software! Let your Commodore 64" 
"memory" do all the work for you. Easy Manual and Program Menu-Screens make 


everyone a "pro" in 1 day! 


Here's a small "PEEK" at SOME of the FULLY-INTEGRATED POWER of 
PRODUCTIVITY at your fingertips. 


MASTERDISK*: 

• a SORTED Master Catalog of ALL your Disks 
(even those un-listable "protected" Directories; 
Names, ID's, File info, etc.) 

Search + List any File/Disk/ID in seconds, auto- 
matically, in any of SEVEN WAYS. 

Transfer ML-Programs or Files from Disk to 
Disk (CATEGORIZE your software) 

Stop disaster before it strikes: change dupli- 
cate ID's fast, without total re-copy 

Restore accidentally-scratched files in a flash 
with VERIFICATION that they're OK. 

Works with 1 or 2 Single Disk Drives (1541, 
MSD, etc.) with or without Printer (Commodore 
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Handy-Reference Card for HEX/ASCII/ 
BINARY-TO-DECIMAL VALUE TRANSLA- 
TION * FORMULAS, included FREE. 


NEW!! - MASTERDUAL®, 
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Dual Drive Speed! 


Same Catalog Features as MASTERDISK* 
Same Disk repair functions, too 
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Drives (4040, MSD, etc.) 

Utilizes all Dual Drive functions for maximum 
speed and ease of use 

FREE Handy Reference Card for HEX/ASCII/ 
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Experience FULLY-INTEGRATED POWER for 
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*MASTERDISK® and MASTERDUAL:* are also compatible with the NEW C-128 (in C-64 Mode)! 


Don't MESS with anything LESS! 


OUR CUSTOMERS WRITE: 


‘Been meaning to write and let you know how much I've enjoyed it 
So, let me say that MASTERDISK is EXCELLENT." — Middletown, NY 


just the thing I need. 


— APO, NY (Germany) 


Hope to get ту [MASTERDISK] yesterday." — Maple Grove, MN 


1 am impressed with your product and would like to be able to endorse it for TPUG." — Ontario, Canada 


nothing else oven comes close!" — Burlington, IA 


We ship within 24 hours! Send Money Order or Check to: 


INTEGRATED-SOFTWARE SYSTEMS 
Р.О. Box 1801, Ames, ІА 50010 
VISA/M.C./C.O.D., CALL (515) 233-2992 
9 am - 9 pm (Central Time) Mon.-Fri. 

Add $3 Shipping/plus $2 Foreign, C.O.D. 
1A Residents add 4% Sales Tax. 


Whether you have tens or hundreds of di 


IN CANADA: Cricket Distribution Co., 
Р.О. Box 953, Cobourg, Ontario, Canada K9A 4W4 
VISA/M.C./C.O.D., CALL (416) 372-3692 


9 am - 6 pm (Eastern Time) Mon.-Fri. 
Add $3 Shipping/plus $2 C.O.D. 
Ontario Residents add 7% Sales Tax 
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for the С-64 
By James С. Hilty 


meteor storm has caused the space shuttle 
to move off course and rapidly gain alti- 
tude. Upon reaching an altitude of 800 
miles, the shuttle will be lost forever. The 


only hope of saving it is you, the Super- | 


hero. You must destroy 10 golden meteors before the shut- 
tle reaches 800 miles. But beware—hitting the green Zyp- 
tonite meteor will render you powerless and the game 
will end. 

The game opens with the title screen, then a graphics 
chart depicting the Superhero, the space shuttle, and the 
meteors, The playing screen incorporates a randomly 
drawn maze. The Superhero character is at the upper right 
of the maze, while a Zyptonite meteor is at the upper 
left, A joystick in Port 1 allows you to move Superhero 
while he tries to get the 10 gold meteors which are placed 
along the maze. The Zyptonite meteor moves randomly 
throughout the maze. Colliding with the Zyptonite me- 
teor finishes you off. 

The altitude is constantly displayed along with the 
score. If the shuttle reaches 800 miles, the game is over. 
Each meteor you destroy is worth 10 points. Getting all 


10 of the meteors before the shuttle reaches 800 miles | 


gives you bonus points, lowers the altitude, and allows 
you to progress to a new maze. 

"The running Superhero figure and the space shuttle 
іп the maze cutouts are sprites which react to the differ- 
ent conditions going on in the maze. 

The main loop (lines 870-950) uses a machine language 
joystick routine to move the Superhero character. The 
Superhero in the maze cutout is animated by POKEing 
different values into SPRITE 05 memory pointer. A ге- 
play option is incorporated at the end of the game. O 

SEE PROGRAM LISTING ON PAGE 101 


START & END 


FILE ADDRESS 


for the С-64 


By David S. Smart 


s well as giving the start or load address 
of a file, this little program will give the 
length of a file and the end address. 
The program begins by initializing the 
disk and then requesting the name of the 
file to check. It will then give the start address in both 
hex and decimal and continue on to read in the file. It 
then gives the length of the file in bytes and finally the 
end address in hex and decimal. 

Tf you have another program residing in the cassette 
buffer, the machine language portion of this one can be 
easily relocated. O 

SEE PROGRAM LISTING ON PAGE 109 
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And in seconds ІП be over So blast the invaders with 
interferon, And annihilate them with macro- 
ith Cell Defense, you con 
ne sy 
er basic concepts in | 
biology. And explore exciting 
scientific strategies. \ 
time, leading 
an attack against a host of 
deadly viruses. So get 
yourself the science 
simul 
Defense. Your life 
depend on it hi 


CELL — HESWARE 
Suggested Retail $ 1 4.95 


CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 
HESWARE POBOX 631 S. SAN FRANCISCO, CA 9 


= 


13-003: 
AOD 5200 FOR POSTAGE AND HANDLING. VISA AND MASTERCARD AVAILABLE. 


RIGHT BUTTONS AND 
YOU COULD BE THE NEXT 
AMERICAN IN SPACE. 


The race for space is not a game. It's a reality. That's why 
we developed a program that will challenge your — 
ability. Expand your mind. And keep you ý 
fascinated for hours. Project Space Sta- Е 
tion is the most sophisticated way to Snc 
learn to design and operate a space 
station. You'll even use the 
elements of the actual process 
NASA uses in their design 
You can take on the mission 
yourself, or bring along your 
family and friends. So get _ 
working on Project Space 
Station today. America's astro- 
nauts are counting on you. 


PROJECT SPACE STATION BY HESWARE 
Suggested Retail $24.95 


CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 
HESWARE РОВОХ 631 S. SAN FRANCISCO, CA. 94083-0631 
ADD $200 FOR POSTAGE AND HANDLING, VISA AND MASTERCARD AVAILABLE. 
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| CUP OW 
VIC AND 6-t 


wanted to grow up to be a swineherd, this is your 

lucky day. The program Pig in a Poke, included 

with this issue of Ahoy!, is just what you've been 
waiting for. 

If, on the other hand, you're a nearly normal adult, 

т you'll find that Pig іл a Poke is not exactly challenging — 

it's about at the ability level of a four-year-old. 
But that's all right. Four-year-olds need games, too. 
And for those of you who are a bit older, the program 


ғ 
жы” 


is a clear demonstration of how to use sprites in game 


X 
% п case you're one of those people who always 
е © programming. Its very simple, using only one sprite and 
two sprite shapes, with the player able to control only 
horizontal movement. But by the time you're through 
studying the program, you'll know how to create sprites, 
move them, do shape-flipping, detect collisions, and make 
the sprite interact with the playfield and the player's in- 
structions. And that's not bad for a simple program about 
à cute little pig trying to avoid the butcher's shop. 


HOW TO PLAY 

Once the program has finished setting up, you'll have 
a little pig on a grassy field. However, the robot swine- 
herding machinery is in action, with moving fences 
sweeping across the field, trying to herd the pig toward 
the top of the screen. 

You are the pig. АШ you have to do is run from 
to side to avoid those fences. If they touch you, they' 
push you upward, toward the top of the screen; but if 
you stay in the gaps between the fences, you'll be safe. 
Eventually, after fifty fences have gone by, the swine- 
herds will give up and you'll be safe. 

You control the pig by pressing the SHIFT key to move 


e right and the COMMODORE key to move left. If you 
want to quit the game early, press SHIFT, COMMODORE, 
in and CTRL all at the same time. 


The game will end when fifty fences pass by; when 
you press SHIFT/COMMODORE/CTRL; or when the 
pig reaches the top of the screen. 


okeg WHY ARE SPRITES $0 GOOD? 


The pig is, of course, a sprite. But there wasn't any- 
thing I did with that pig that couldn't be done with cus- 
tom characters, was there? 

Shapes and Sizes. Certainly the shape of the pig could 
have been duplicated with custom characters—six char- 
acters, in fact, to make the whole shape. That's because 

B the pig is made out of 10 rows of dots, 23 columns wide. 

8 Since each character is eight dots by eight dots, it would 
Ў take six whole characters to make the pig shape, two rows 
5 оѓ three characters. 


By Orson Scott Card 
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The sprite can even be bigger than the pig. While the 
maximum width of a sprite is 24 dots, it can be up to 
21 rows in height—more than twice as tall as my little pig. 

Furthermore, the 64 allows you to change the size even 
more, You can double the sprite’s width, or its height, 
or both. When you choose to expand the sprite, the VIC-2 
video chip takes the shape from memory and doubles 
each dot; the pattern remains the same, but it is spread 
out over twice as many dots on the screen, If you dou- 
ble the width, the sprite then becomes 48 dots wide 
(though the pattern is still confined to 24 dots, each of 
which is doubled when it is displayed). If you double 
the height, the sprite becomes 42 dots high. 

One-byte Registers. Sprite expansion is controlled with 
the two sprite expansion registers. Each bit of the single 
byte of the horizontal expansion register (at 53277) con- 
trols a single sprite. Sprite 0 is controlled by bit 0, sprite 
1 by bit 1, and so on to sprite 7, controlled by bit 7. If 
ontrol bit contains a 1, its width will be dou- 
bled; if it contains a 0, the width remains normal. 

For instance, let's say you want to double the width 
of sprites 0, 1, 2, and 7, but leave the other sprites alone. 
То turn on sprite 0, you need a 1 for bit 0, which has 
а decimal value of 1. Bit 1, when "on; has a decimal 
value of 2. Bit 2, when “on,” has a decimal value of 4. 
You notice the pattern, of course—each bit's "on" value 
is double the “on” value of the bit before. Bits 3, 4, 5, 
and 6 have decimal values of 8, 16, 32, and 64 — but since 
we aren't using them, we wont include those decimal 
values in our number. We will include the value of bit 
7, however, which is 128. 

Combine those, now: 1 + 2 + 4 + 128 = 135. To 
double the width of sprites 0, 1, 2, and 7, you only have 
to POKE 53277,135. 

Several of the sprite control registers control all eight 
sprites with a single byte, each bit serving as an on-off 
switch for one of the sprites. In every , bit 0 con- 
trols sprite 0, bit 1 controls sprite 1, and so оп. 

That's why in Pig in a Poke—as with any other pro- 
gram where I use sprites —I set up two arrays to control 
the on-off switches for the different sprites. The bit-set 
array, BS(0-7), contains the values 1, 2, 4, 8, 16, 32, 64, 
and 128. Then, when I want to turn on, or “set,” the bit 
that controls, say, sprite 4, I only have to: 


POKE 53275,PEEK(53275) OR BS(4) 


The other array, BC(0-7), is the bit-clear array. It con- 
tains the values 254, 253, 251, 247, 239, 223, 191, and 
127. Each value is а bit-mask: every single bit is “оп” 
except the bit that controls the sprite in question. (The 
maximum value of a byte—all bits "on-is 255. So the 
bit-mask for bit 0 is 255-1, or 254; the bit-mask for bit 
3 is 255-8, or 247; the bit-mask for bit 7 is 255-128, or 
127.) 

Then, when I want to turn off, or "clear? the bit that 
controls sprite 4, I only have to: 


POKE 53271,PEEK(53271) AND BC(4) 


Changing Shapes. The sprite is also versatile in its 
shape. You can store, theoretically, 64 separate sprite- 
shapes in the 16K block of video memory. (Actually, you 
need to leave at least IK for screen memory in text mode, 
plus room for as much character memory as your pro- 
gram needs.) Each of the eight sprites on the screen can 
take its shape from any one of the shapes you've stored 
in memory. 

You could have all eight sprites look exactly the same 
by telling the VIC-2 to take their shape from the same 
pattern. 

Or you could have one sprite cycle through dozens of 
different shapes in an animated sequence, with a single 
POKE for each change. 

The sprite shape location registers aren't always in the 
same place, and their code is a bit complex. To under- 
stand how to use them, let's review some things we've 
covered in earlier columns. 

Review of Video Blocks. As you remember, the VIC-2 
video chip can only see 16K of RAM at a time. So all 
the graphics features have to be located in that 16K block: 
screen memory, character memory, sprite shapes, and 
bit-map memory. (The only exceptions are color mem- 
ory, which is always at 55296-56319, and ROM charac- 


End Cartridge Clutter! 


NOW - ANYONE CAN COPY 
C64 CARTRIDGES - FAST! 


BUS - lets you copy and store up to 17 
cartridges on a single diskette. 
WE GUARANTEE STORAGE AND 
PLAYBACK OF ALL STANDARD 


COMMODORE 64 CARTRIDGES 
€BUS — The Cartridge Back-up System 


forthe Commodore 64..... $99.95 


Price includes CBUS 1 Cortridge Snopshooter, CBUS II Cartridge 
Emulator, Diskette with oll necessory programs. Additional 
CBUS II's available for $69.95. Please add $3.00 for shipping and 
hondling. 
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ter memory, which is really located in a switchable bank 
at 53248-57343, but is seen by the VIC-2 at 36864-40959 
when it is using the third video block, and at 4096-8191 
when the VIC-2 is using the first video block. This is 
automatic, so once you select one of those blocks, the 
character set will be present for your use.) 

The four possible video blocks are at OK (from 0 to 
16383), at 16K (from 16384 to 32767), at 32K (from 32768 
to 49151), and at 48K (from 49152 to 65535). When the 
64 powers up, it is using the first video block, starting 
at OK, It puts screen memory at 1024 and sees the char- 
acter set as if it were at 4096. This won't be too helpful 
when you're using sprites, however, because your BASIC 
program starts at 2048 and runs right through this whole 
block—there are only a few nooks and crannies into which 
you can tuck a sprite shape or two without bashing the 
BASIC program. 

Often you'll use the second video block, at 16K, espe- 
cially if your BASIC program is short enough to leave 
you some room. However, in that block you have to define 
your own character set. The third video block, at 32K, 
allows the VIC-2 to see character memory at 36K. You 
also can't use the last 8K of this block, from 40K to 48K, 
because that is BASIC ROM! But you still have 4K to 
contain screen memory and sprite shapes—and most of 
the time that will be enough, with plenty of room below 
32K for a Шо BASIC program. The fourth block, at 


WORD RUNNER 
Word Processing System by N-Systems 
Perfect for the first-time user — | 
* No printer or page set-up required for standard format. Just enter 
а file name and start typing. 
* All editing is done in “normal” text entry mode. No special 
insert or edit modes, | 
* Single-kcystroke commands—no complicated command syntax. | 
* Fast, efficient machine language operation. 


For the advanced user too — 

* Move up to six thousand characters of text at one time—even | 
between documents. 

* Full screen editing. 

* Global Search— Search and Replace. | 

ВШ commands for alic, underline, boldface, double width, | 
superscript and subscript, 

* Automatic page numbering. | 

* Display each page on the screen and edit before printing, or print 
entire document in continuous stream 

* Document length may be up to entire disk. 


AND—WORD RUNNER costs ONLY 544,951 | 


To order WORD RUNNER, send check or money order to: — | 
N-Systems * Р.О. Box 160 • Steger, IL 60475 | 

a residents add sales tax) | 

WORD RUNNER is available for Commodore-64 on disk only and will | 
work with Epson, Gemini, Okidata, and Commodore printers. | 
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48K, contains so much ROM that it's virtually unusable 
for video purposes. 

The first two bits of the register at 56576 tell the VIC-2 
which video block to use. First you AND the register 
with 252 to blank out those two bits, then OR it With 
the code for the video block you want. The code for OK 
is 3; for 16K, 2; for 32K, 1; and for 48K, 0. (You need 
to diddle with the data direction register at 56578.) Here's 
how to select the 32K block: 


POKE 56578,РЕЕК(56578)0Е 3:POKE 56576,(Р 
EEK(56576)AND 252)0R 1 


You also need to tell the VIC-2 where screen and char- 
acter memory are, which is done at 53272; and tell BASIC 
where to find screen memory by POKEing the page num- 
ber into 648. In Pig in a Poke, screen memory is right 
at 32K, which to the VIC-2 is OK within the video block; 
BASIC uses the absolute page number, which is 128. 
Character memory is at 36K, which to the VIC-2 is 4K 
within the block. So the number POKEd into 648 is 128, 
and the number POKEd into 53272 is character mem- 
ory IK boundary plus sixteen times screen memory IK 
boundary, or 4+16*0. (For those of you who grew up 
with the New Math, that adds up to 4. A lot of work 
just to get a dumb little one-digit number, isn't it?) 

Now that we've told the VIC-2 where to find all this 
stuff, where are those sprite location registers? The sprite 
location registers are the last eight bytes of the IK block 
where screen memory resides. That's why we had to go 
through all this rigmarole. You have to know where screen 
memory is to find out where the sprite location registers 
are. The address is video block address plus screen mem- 
ory IK boundary times 1024 plus 1016 In Pig in a Poke, 
that's 32768+0+1023, or 33791. 

Each sprite shape location register contains a number 
from 0 to 63, representing one of the 64 possible 64-byte 
blocks of memory within the video block. For instance, 
а 10 tells the VIC-2 to look for the block starting at ad- 
dress video block plus ten times 64. A 55 would tell the 
VIC-2 to look at video block plus 55 times 64. Since our 
video block starts at 32768, sprite shape block number 
10 (the eleventh block, since the first block is numbered 
0) starts at 32768+10*64, or 33408. 

However, since screen memory in our program starts 
at 32768, and uses 1000 bytes of memory, that sprite block 
is within screen memory. Now, this doesn't cause the 
VIC-2 any trouble. It will merrily display both the screen 
and the sprite, using overlapping regions of memory. 
VIC-2 doesn't care. But you probably will. As the screen 
display changes, so will your sprite shape! 

A Small Example. Let's throw a sprite shape onto the 
screen showing just how that works. Power up your 64, 
and enter the following program lines in direct mode. 
Notice that we will nor change the video block—we're 
using the screen as you normally have it. 


POKE 53269,1 
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This enables sprite 0. 
POKE 53248,175:POKE 53249,135 


This puts the sprite at horizontal coordinate 175 and ver- 
tical coordinate 135. That's just about in the middle of 
the screen. 

You'll notice that at this point the sprite is a rectangu- 
lar display of garbage. But it isnt just any garbage it 
is the garbage pointed to by the sprite shape location reg- 
ister for sprite 0. Remember, this is found at byte 1016 
from the start of screen memory. The default screen mem- 
ory for the 64 is at 1024, so that the sprite 0 location 
register is at 1024--1016, or 2040. 

Upon powering up, my machine puts a 32 at 2040. 
This means that until I change it, sprite 0 will display 
whatever is in memory at 0--32*64 (video block OK plus 
64 times sprite shape location code 32), or 2048. It just 
so happens that this is the address of the beginning of 
the BASIC program area. Just enter a few meaningless 
lines, like 100 REM and 200 REM THIS IS JUST A 
TEST. With each line you enter, you'll see the sprite shape 
change as BASIC builds a program in the sprite shape 
block, (If your 64 shows something else, POKE 2040,32 
and enter or delete program lines.) 

Now let's move the sprite shape block somewhere else. 
In direct mode: 


POKE 2040,2 


Right in the middle of the sprite you'll see some flic- 
kering dots. These are the constantly changing bytes at 
167 and 168, where the operating system maintains a clock. 

Can't see it clearly enough? Try using the horizontal 
and vertical expansion features: 


POKE 53271,1 
That makes it nice and tall. 
POKE 53277,1 


And now it's fat, too. If you POKE zeroes into the same 
location, it becomes short and skinny again. 

Bits to Make Shapes. How does the VIC-2 read the 
sprite shape matrix? Basically, it reads the matrix the way 
we read books, starting at the upper left-hand corner of 
the sprite shape and reading across to the right; when 
the line ends, it drops down to the left-hand edge of the 
next line. Each of the 24 dots on each row is represented 
by one bit in the sprite shape block. The first byte of 
the block contains the bits that control dots 0-7 of the 
first row of the shape; the second byte, dots 8-15; the 
third byte, dots 16-23. That's all for the first row, so the 
next byte in the shape block controls dots 0-7 of the sec- 
ond row of the shape, and so on, until the 63rd, or sec- 
ond to last, byte of the block controls dots 16-23 of the 
row 20 (the 2184 row, since we began with row 0). The 


very last byte of the 64-byte sprite shape block controls 
nothing at all—the VIC-2 ignores it, and so can you. 

The example program Basic Sprites shows how to cre- 
ate sprite shapes quite easily. The routine in lines 800-810 
reads some DATA statements that contain the sprite 
shapes as strings. This you can design the shape 
right there on the screen without any complicated graph 
paper calculations. Each string represents one row of the 
sprite shape, with asterisks representing “on” bits and pe- 
riods representing “off” bits. The routine breaks the string 
into three 8-character chunks, each of which corresponds 
to a byte of the sprite shape block. Byte by byte, row 
by row, it reads, converts, and POKES in the sprite shape. 

Since мете only using two sprites and three sprite 
shapes, they are being POKEd into the cassette I/O buffer 
at 832 (sprite shape block 13), 896 (block 14), and 960 
(block 15). Thus they don't interfere with BASIC's pro- 
gram storage above 2048. We aren't doing any fancy 
changing of the video block for this program. 

And once it's SAVEd, you can go ahead and change 
the sprite shapes in the DATA statements starting at 810. 
Just remember that every string has to contain 24 char- 
acters, one for each bit of the sprite's width, and there 
must be 21 strings per sprite, one for each row of the 
sprite shape block. 

Movement. With character graphics we were able to 
move objects around the screen with some good speed, 
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using the PRINT command. However, since a character 
can only be in one 8-by-8 grid or another, each move- 
ment had to be at least eight dots at a time. It looks jumpy 
and is hard to watch. 

Sprites can move much more smoothly, since they aren't 
mapped onto the text screen. They can move one dot at 
a time, vertically or horizontally, as the program Basic 
Sprites showed. (The program Pig in a Poke moves the 
pig two dots at a time horizontally, to increase the speed; 
that's about as big a jump as you can take without losing 
smoothness. It also moves eight dots at a time vertically, 
so it will always stay in alignment with the character- 
graphics fences.) 

Each sprite has its own horizontal position register and 
vertical position register. These registers start at 53248. 
They proceed in order, starting with sprite 0% horizon- 
іші position register at 53248, sprite 0% vertical position 
register at 53249, sprite I's horizontal register at 53250, 
sprite 18 vertical register at 53251, and so on. 

The registers contain coordinates that correspond with 
dots on the screen. They always specify the location of 
the dot in the upper left-hand corner of the sprite's shape 
matrix. This has nothing to do with whether that dot is 
turned on or not—even if your whole sprite shape is 
crowded down at the bottom of the shape block, the 
VIC-2 will still use the position registers to calculate the 
location of the upper left-hand corner of the sprite shape 
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block. 

A sprite can be half on and half off the display area. 
Whatever part of the sprite is past the edge of the dis- 
play area and into the screen border will seem to move 
"behind" the border — that is, the dots that are off the edge 
of the display area are simply not displayed. 

That's why a sprite with a horizontal or vertical posi- 
tion of 0 is completely off the screen— it's "behind" the 
border. The leftmost position a sprite can have and still 
be completely visible on the screen is 24. The highest 
position is 50. The first position to the right that will 
have the sprite completely off the screen is 344, and the 
first position on the bottom that will make the sprite com- 
pletely disappear is 250. (When the sprite starts to dis- 
appear on the right-hand edge or the bottom of the screen 
depends on whether or not it has been expanded in ei- 
ther direction.) 

You'll notice, though, that the horizontal position can 
go well over 255, which is the highest number that can 
be POKEd into a single byte of memory, This means that 
once the 5) reaches horizontal position 255, the hor- 
izontal position register can't possibly move it апу far- 
ther to the right—the number 256 cannot be contained 
in the register. 

The VIC-2 gets around this by putting a sort of Inter- 
national Date Line at position 256. When the sprite reach- 
es that horizontal position, a flag bit is set Somewhere 
Else, and the horizontal position register starts over at 
0. So to move across the International Date Line, you 
POKE the horizontal register with 253, 254, 255, then 
set the flag bit, and go on with 0, 1, 2, and so on. 

The flag bits for all eight sprites are in a single regis- 
ter at 53264. Sprite 05 flag bit is bit 0, and so on, as 
with all the other one-byte sprite control registers, If a 
sprite's flag bit is clear (contains a 0), then the VIC-2 
will count the sprite's horizontal position from far left 
of the screen; if a sprite's flag bit is set (contains a 1), 
then the VIC-2 will count the sprite's horizontal posi- 
tion from the International Date Line right on the screen. 

To handle the horizontal and vertical ranges smooth- 
ly, both the Basic Sprites example program and the Pig 
in а Poke game use three arrays. The array УУ (n) con- 
tains all the "valid" vertical locations. In Pig in a Poke, 
there are only 20 valid vertical positions, at every eighth 
row starting with row 53. So in lines 900 and 906, this 
array is set up to have 20 elements, from 0 to 19, which 
contain, in order, the vertical position codes 53, 61, 69, 
77, 85, 93, 101, 109, 117, and so on to 205. Now the рго- 
gram only has to keep track of which of the twenty valid 
vertical positions the sprite should be on, using the vari- 
able VP. Then it sets the vertical positions with POKE 
53248V V(VP). 

A similar thing is done with the horizontal position, 
except that two arrays are used. The first array, HH (n), 
contains all the valid horizontal position codes for the 
horizontal position register. The second array, HB(n), 
contains the flag bits for the register at 53264. Each time 
the sprite is moved horizontally, both numbers are POKEd 


into the control registers. 

Why both numbers every time? For smoothness. You 
could use an IF-THEN test to change the flag bit only 
when the sprite is actually crossing the International Date 
Line. But in a BASIC program, with its slow POKE state- 
ment, that will mean that the sprite hesitates for a mo- 
ment, By POKEing those values every time, overall 
movement will be slower, but there's no hesitation. (How- 
ever, in either case there will be a bit of blinking at that 
point, because for the moment between POKEing the 
horizontal register the POKEing the flag-bit register, the 
sprite will be completely offscreen. This is avoidable only 
in machine language.) 

Another solution, of course, is to keep your sprites from 
crossing the International Date Line at all. Display some- 
thing else to the right of the line, and keep the sprites 
always to the left. No flicker then! 

Three Dimensions. The priority register at 53275 con- 
trols whether the sprite moves in front of objects on the 
screen or behind them. Each bit of the byte at 53275 con- 
trols the corresponding sprite. If sprite 05 bit, bit 0, is 
set (equals 1) then the sprite will seem to move behind 
objects on the screen, That is, the sprite will be visible 
whenever it is in front of the background color of the 
screen, but every dot that is on the same spot as a dot 
in a character shape on the screen will be invisible—the 
character shape will seem to be in front of the sprite. 
If bit 0 is clear (equals 0) then the sprite will move in 
front of the character shape as well as the background. 

This lets you create the illusion of three dimensions 
on the screen. However, setting and clearing individual 
bits of the priority register is so cumbersome that in a 
BASIC program you will probably want to set the priority 
once and leave it alone. Only in machine language can 
you fiddle it on and off without slowing down program 
execution hopelessly. 

Collisions. For game programming, one of the most 
important features of sprites is that the VIC-2 automati- 
cally keeps track of whether sprites have bumped into 
each other or into any character shapes on the screen, 
Two collision registers keep track of whether each sprite 
has been involved in a collision since the register was 
last checked. To see if sprite 4 has bumped into another 
sprite, examine bit 4 of the sprite/sprite collision regis- 
ter at 53278. To see if sprite 7 has bumped into any of 
the character shapes (or bit-map designs) on the screen, 
examine bit 7 of the sprite/foreground collision register 
at 53279. 

When does a collision take place? Only when an “on” 
dot in the sprite shape occupies the same screen posi- 
tion as an “оп” dot in another sprite or an “on” dot in 
а character shape. If the transparent portion of a sprite's 
shape matrix passes over another sprite or a character, 
nothing happens to the collision registers. Only when the 
dots that are actually displayed come into “contact” is a 
collision reported. 

The collision registers “remember” every collision until 
your program PEEKs (or LDAs or CMPs, in machine 
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language) the collision register. This means that you 
should always clear the collision registers by PEEKing 
them once at the beginning of the program, before you 
start checking them in earnest. Also, it means that you 
can't PEEK the sprite/sprite register to check for a colli- 
sion for sprite 0 and then check it again for a collision 
for sprite |—when you checked it the first time, it was 
erased! That's why you'll want to put the byte in a vari- 
able, like this: Z=PEEK(53278). Then you can check 
the variable Z to test for as many collisions as you want. 

Unfortunately, these registers don't tell you which sprite 
or character shape you bumped into. Of course, if only 
sprites 0 and 1 in the sprite/sprite collision register re- 
port a collision, you can bet they bumped into each other, 
But if sprites 0, 1, and 2 report a collision, you don't 
know if both 0 and 1 bumped into 2, but not into each 
other, or if they all bumped into each other—and it can 
get even more complex. 

To know which sprite was bumped, you either have 
to track the location of every single sprite (in which case 
a BASIC program will crawl along at the speed of a stu- 
dent driver), or you have to decide that all sprite colli- 
sions have the same effect, so you don't care which sprite 
bumped which. 

That's what Pig in a Poke does. Since there's only one 
sprite onscreen, there can't be any sprite/sprite collisions 
at all. And any collision with character patterns has ex- 
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actly the same effect—bouncing the pig toward the top 
of the screen. 

If I had wanted to have characters on the screen that 
the pig could touch at will, then I would have had to use 
sprites for the fences moving up the screen. In that case, 
sprite/foreground collisions would have been ignored, and 
only sprite/sprite collisions would have mattered. Fur- 
thermore, it wouldn't have mattered which sprite the pig 
bumped into, because алу sprite would have the same 
effect. 

Any time it doesn't matter which sprite the player's 
sprite bumped into, collision handling is simple. When 
it does matter, it becomes complex and generally has to 


SPRITE MEMORY МАР 


For easy reference, here are the sprite-control registers in the Com- 
modore 64. For explanations, see the text of the article. 


Floating Memory Locations 

1016-1023 after the start of screen memory (default 2040-2047): 
‘The сінің shape location registers. (If you're using bit-map mode, 
they can be found at bytes 1016-1023 after the beginning of bit-map. 
color memory.) 

0-63: Тһе codes for the possible location of cach sprite shape block 
within the video block. The actual address is found by multiplying 
this code by 64 and adding the result to the absolute address of the 
start of the video block, The first 63 bytes of the sprite shape block 
determine which dots will be “on.” Every 1 bit causes a dot to be 
displayed; a 0 bit allows the playfield display to show through, 


Permanent Control Registers 

53248, 53250, 53252, 53254, 53256, 53258, 53260, 53262: Hor- 
izontal position registers for sprites 0 through 7, in order. 

53249, 53251, 53253, 53255, 53257, 53259, 53261, 53263: Verti- 
са! position registers for sprites 0 through 7, in order. 

53264: Flag-bit register for horizontal position of all eight sprites. 

53269: Sprite enable register. (255 enables all sprites; 0 disables 
all sprites.) 

53271; Sprite vertical expansion register, (255 expands all sprites.) 

$3272; Screen and character memory location register. Where 
screen memory is located determines where the sprite shape location 
registers are located. The high four bits are significant for screen 
memory location: 


screen location*(PEEK(53272)AND 240)/16+video block 
starting address 

53275: Sprite priority register. (0 means all sprites appear in front 
of foreground; 255 means all sprites appear behind foreground.) 

53276: Sprite multicolor enable register. (255 makes all sprites 
display using multicolor option.) 

53277: Sprite horizontal expansion register. (255 expands all 
sprites.) 

53278: Sprite/sprite collision register. (0 means no collisions; 
PEEKing this location clears the register.) 

53279: Sprite/foreground collision register. (0 means no collisions; 
PEEKing this location clears the register.) 

53285: Sprite multicolor register 0, controlling the color of 01 
bit-pairs. 

53286: Sprite multicolor register 1, controlling the color of 11 
bit-pairs.. 

53287, 53288, 53289, 53290, 53291, 53292, 53293, 53294: Sprite 
color registers for sprites 0-7, in order. Default colors are white, 
red, cyan, purple, green, blue, yellow, and medium gray. (In multi- 
color mode, these registers control the color of 10 bit-pairs.) 

53276: Video block selection register. Bits 0 and 1 determine which 
video block the VIC-2 chip will read. 
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be handled in machine language. 

Other Features. Sprites have several other possible 
features, which ГЇЇ discuss in later columns, like multi- 
color display. These features have their own registers, 
which are mentioned in the Sprite Memory Map but not 
explained here. 

The sprites’ colors are controlled by eight sprite color 
registers; however, the 64 automatically assigns eight dif- 
ferent colors to the sprites when the machine is turned 
on, and the example programs don't change them. If you 
want to, however, just POKE into them the number of 
the color you want, from 0 to 15, just as you do with 
the background color register at 53281. The sprite color 
registers are located at 53287 through 53294. 

Also, there are advanced techniques like animation 
(shape-flipping), rotation, and complex sprites, which 
we'll go through in the next couple of months, including 
an interrupt-driven machine-language routine that will 
allow you to speed up sprite movement drastically while 
still controlling it all from BASIC. 


HOW PIG IN A POKE WORKS 
In th meantime, though, let's go through Pig in a Poke 
section by section in order to see exactly what's going on. 
The Variables. One of the most confusing things in 
studying somebody else's program is to try to remem- 
ber what all the variables mean. So here is a list of the 
major variables used by both Pig in a Poke and Basic 


Sprites: 

VB Address of the video block 

SB Address of sereen memory 

BB The screen memory page number (used by BASIC 

111027) ‘The address of each sprite's shape location register, 
located starting at byte 1016 after the start of screen 
memory. 

стол) The address of each sprite’s color register. 

HT(0-7) The address of each sprite’s horizontal position reg- 
ister. 

VTO?) The address of cach sprite's vertical position register. 

HR The address of the flag-bit register for horizontal 


movement across the “International Date Line.” 
ES The address of the sprite enable register. 


VE ‘The address of the vertical expansion register. 

HE The address of the horizontal expansion register. 

PR The address of the priority register. 

EM The address of the multicolor enable register. 

MR The address of the first multicolor color-selection reg- 
ister. 

cs The address of the sprite/sprite collision register 

CF The address of the sprite/foreground collision regis- 
ter. 

BS(07) Тһе ігі values for each sprite. 

BC(07) Тһе bit-clear values for each sprite. 

ST(n) The codes for the location of each sprite shape block; 
these numbers are POKEd into the sprite location 
registers at LT (n). 

NS The number of sprite shapes, minus 1. 

VVin) The vertical position array; these values are POKEd 
into the vertical position registers at VT(n)... 

HH(n) The horizontal position array: these values are 
РОКЕ into the horizontal position register at HT (n). 

HB(n) ‘The horizontal flag-bit array; these values are POKEd 


Continued on page 75 


http 


http 


FISH MATH 


for the 


By Kevin Dewey 


n this educational game for children ages 

eight through twelve, the player is іп con- 

trol of a group of ten fishes that must be 

led to the top of the stream safely and with 

the right amount of food in their tummies. 
The player figures out how much food each fish requires 
by working out a simple multiplication problem at the 
bottom of the screen. He then leads the fish up the stream, 
gobbling up food as he goes, and avoiding the shark 
known as Gums. Contact with Gums makes you into 
shark-bait. 


CONTROLLING THE FISHIES 

Controlling the fishies is a very complex process to 
learn, but very easy once you get the hang of it. There 
are only two keys—for right and left. The CRSR keys 
are used, CRSR UP/DOWN moving the fishy left and 
CRSR right/left moving the fishy right. Doesn't sound 
100 complex, does it? But your fishy is always moving 
up, almost automatically, except when you are pushing 
down a CRSR key. So if you have a lot of food to eat, 
you'd better not go too long without moving right or left, 
ог before you know it, you'll be on the top of the screen, 
with far less food than the fish requires. This problem 
can be solved, however, by scrolling off the side of the 
screen and moving down. You only move down on the 
right side. If you scroll off the left side, you move up. 
So if you're too close to the top of the stream with not 
enough food, you can head back down if you keep go- 
ing right. 

Another key that comes in handy is SHIFT/LOCK. 
This pauses the game, allowing the player to think over 
the multiplication problem presented, or the best way to 
avoid Gums, whichever is most pressing at the moment. 
Play is resumed by depressing the key. 


SCORING 

For every fish brought to the top safe and well-nour- 
ished, a point is added to your score. For every fish ei- 
ther overfed or илде ед, a point is taken away. If Gums 
gets a fish, the game ends. 
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A FEW WORDS ON EDUCATION 

The educational emphasis in this game is on teaching 
basic multiplication facts. I had originally chosen to make 
it an addition game, but chose not to when I realized 
the arcade clement of the game might become frustrating 
for the younger set of children, 

Instead, I chose multiplication because older children 
can appreciate the challenges of an arcade game while 
learning, instead of becoming frustrated by it. The game 
really is quite hard to master, and though children may 
not realize it, they are being drilled in multiplication skills 
as they play. OSEE PROGRAM LISTING ON PAGE І0 
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A Mini Database Manager 
for the C-64 


By Glenn Lumpkins 


ow many times has this scene been played? 

Your latest issue of Ahoy! arrives with 

the mail. You flip through the pages think- 

ing: boy-these-are-great-programs, the ads, 

all-those-helpful-hints, and the many other 

inspiring articles. I'll read this issue and type in the pro- 

grams when I have time to really concentrate. For now, 

I'll make some mental notes about this issue. You now 

add this issue to the month’s stack of magazines which 

sit on top of last month's stack, which sit on top of the 
previous month's stack, and so on. 

When was the last time you went to that stack of ma- 

terial needing a routine, a helpful hint, an item, or an 

article on a specific subject? Pulling issues out of the 
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"One of these days I've just got to get this stack organ- 
ized. But the issues keep piling up higher and there seems 
to be no end to it. There must be a magnetic quality to 
the computer desk, as everything seems to gather there. 
Maybe tomorrow ГЇЇ get started.” 


HELP IS ON THE WAY! 

I wrote Ahoy! Dock because I receive and save sever- 
al computer publications each month. More than once 
I have tried to catalog and file these issues, all to no avail. 

Now with Ahoy! Dock and a 1541 disk drive, I have 
an index of every article in my issues that I might ever 
want to use or read. Ahoy! Dock allows me to add to 
my file at any time, search for a program or articles, de- 
lete old items, modify the file, print or list the files, and 
sort the file on multiple fields. It now takes minutes in- 
stead of hours to find the information I need and my desk 
is much neater, thereby allowing me more computer time. 

Ahoy! Dock imply a mini-database manager de- 
signed for use with an auxiliary storage device and a flop- 
py disk. It will allow you to index information accord- 
ing to 14 categories, with each category containing 500 
independent records. With its simple menu operations, 
the program is as easy to use as pressing the function keys. 

When you run Ahoy! Dock, you'll see a main menu. 
Step-by-step instructions are asked for by each of the 
menus, with every attempt made to prevent an incorrect 
entry. If all else fails, at any point of entry a “/” will al- 
low you to escape back to the main menu. 

When you select an option from the menu, a submenu 
of categories will be read to the screen for you to choose 
from. When you select the ADD option and a category, 
the program will direct the computer to read the error 
channel from the disk drive to see if that category ex- 
ists. If the category doesn't exist, you are asked to create 
the file or return. Choosing the create option will ini- 
tialize that file. 

With just a little of your time, you'll soon have a com- 
prehensive disk file that will index all the magazine ar- 
ticles and programs you wish. 

Ahoy! Dock was written for computer magazines. You 
can easily alter it for any type of publication by chang- 
ing the data subject categories and the program lines. O 

SEE PROGRAM LISTING ON PAGE 103 
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Because upon starting the Commo- 
dore, RND(I) always produces the 
same series of random numbers, and 
because RND(0) is rather suspect, I 
use one of the following lines in pro- 
grams that use random numbers: 


100 R = RND(1): GET A$: IF 
А$="" THEN 100 


ог 


100 R = RND(1): IF (PEEK(5 
6320)AND15)=15 THEN 100 


Depending upon the length of the 
pause, line 100 will generate a vary- 
ing number of random numbers, 
which changes the starting point for 
the series of random numbers used 
in the program. The more often the 
program can zero line 100, the bet- 
ter. —Jacqueline L. Callaway 

Orange Beach, AL 


I would like to address an article 
in the May issue of your fine maga- 
zine: Disk Spinners, Part II by Mor- 
ton Kevelson. I have used all three 
of the referenced devices. I purchased 
the 1541 Flash after reading the arti- 
cle and cannot offer enough praise for 
this fine product. 

I have the updated model with the 
switch on the disk drives (2). I have 
been using the Flash for about a 
month and have found only two 
games that will not work with the 
Flash installed. 

I use word processors and PFS 
(File & Report). 1 have found that 
with the Flash installed it is a plea- 
sure not waiting between searches 
during file update and printing. 

On the Commodore 1 have, the 
Kernal ROM was soldered in and did 
require the tricky removal of the old 
Kernal to install the socket furnished 
with the kit; after this was done the 
rest of the modification went with- 
out any problems. 

I would like to thank Mr. Kevel- 
son for his article and Skyles Elec- 


tric Works for their product. 
— David J. Farrell Sr. 
Enfield, CT 


I recently purchased the Fast Load 
cartridge from Epyx. One of the first 
programs that I tried Fast Load оп 
was Microsofts Multiplan for the 
C-64. Multiplan is a superb spread- 
sheet, but frustratingly slow. When 
T attempted to save some changes to 
my data disk, Fast Load restructured 
my files so that I could not retrieve 
them. 

1 called Epyx to find out what hap- 
pened. The gentleman I talked to said 
the problem was relative files. His 
belated advice was “don't use Fast 
Load on any program containing rel- 
ative files" 

In all the reviews that I have read 
in your magazine and others, no- 
where is this problem mentioned. 
And nowhere are there any warnings 
about potential problems like this. 

Please address this problem for my 
benefit and the benefit of all your 
readers. —Edward S. Champa 

Indianapolis, IN 


Scuttlebutt would be even better if 
it incorporated, though in abridged 
form, the same thoughtful judgment 
that's found in your Reviews section. 
Any chance of that? — — Mel Getty 

Orono, ME 

Not if we want to keep Scuttlebutt 
the most current—as well as complete 
—Commodore ne 
stands, We announce new products as 
soon as we learn of their existence. 
Waiting for review samples would make 
our news section yesterday's papers. 


We incorrectly listed the address 
and phone number of Navarone In- 
dustries, Inc. on the back cover of our 
August issue. Correct address and 
phone number are: 

Navarone Industries, Inc. 

19968 El Ray Lane 

Sonora, CA 95370 

Phone: 209-533-8349 
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FASTNEW 
А 20-Second Formatter for the 1541 


By Don Lewis 


astnew is a fast disk formatting program. 

The 1541 has a built-in command for for- 

matting, i.e. NO:(diskname,id). So why a 

special program? Because Füstnew im- 

proves on the 1541 resident formatter in 
three important areas: 

а. Speed. The normal format takes about 90 seconds. 
Fastnew formats a disk in 20 seconds. 

b. Reliability. The normal format routine includes a 
verify. Unfortunately, this verify has a bug in it which 
allows some format errors to go undetected. Fastnew has 
a correct verify, insuring error-free formatting. 

с. NO Head Bang. The normal format kills 15415. Ev- 
ery time you use the normal format, the read/write head 
is BANGed against a hard stop in the drive. Eventually 
this will throw the disk out of alignment, and cost you 
an expensive repair. Fastnew never bangs the read/write 
head when formatting. 

Fastnew consists of three sections, a BASIC portion 
and two machine language (ML) routines. The BASIC 
code handles screen output and user input. One ML rou- 
tine is a fast memory mover used to transfer code from 
the 64 to the 1541. The other ML section is the format- 
ter proper, It is transferred to the 1541, then executed us- 
ing an M-E command. This code relies heavily on sub- 
routines in the 1541 ROM's to perform the formatting. 

When typing in Fastnew, be sure to double (and tri- 
ple) check the data statements at lines 4000-4999 and 
5000-5999, Make sure you save a copy to disk before 
running the program. Until you get a completely work- 
be prepared to quickly turn your disk drive 
the data statements can cause the 1541 to 
really go wild. 

Source code for the 1541 resident code is available for 
$800 postpaid from the author (see address below). Care- 
ful study of the source code will suggest all sorts of pos- 
sibilities for custom formatting, such as varying data or 
header block lengths, extra tracks or sectors, and record- 
ing density shifts. Custom formatting has been where 
most copy protection schemes originate. 

Fastnew is faster because it avoids a lot of the work 
the normal format does, without compromising integ- 
rity. When formatting a disk the 1541 normally does quite 
a bit of work. First it writes 10250 $55 bytes (non-synch 
marks) to the disk. Then it writes an alternating pattern 
of $55 and $FF (synch marks) bytes to the disk. It then 
reads the track and counts how many synch and non- 


synch marks were actually written on the track. From 
these counts, it calculates the optimal inter-sector gap 
length. The goal is to divide the track into evenly spaced 
sectors. The actual number of bytes written out as the 
inter-sector gap depends on the length of the track (track 
35 is shorter than track 1), the number of sectors on the 
tracks, and the speed of the disk drive, which may vary 
from day to day. After calculating the inter-sector gap, 
the actual formatting is done. The header block and a 
dummy data block are written out for each sector on the 
disk. The Read/Write head is then stepped to the next 
track and the process repeated. 

In practice all this work isn't necessary. There is no 
reason to try to get an even sector distribution around 
the track, provided there is enough space for all the sı 
tors. It is important, however, to have some gap between 
the end of one sector and the start of another. If a gap 
did not exist, you'd run the risk of having a data block 
write into the header block of the next sector, causing 
a disk error number 20. This could happen if the speed 
of the disk drive varies from day to day. 

Rather than go through all the calculations described 
above, Fastnew assumes that а gap of 8 bytes between 
sectors is sufficient. This is based on an examination of 
the inter-sector gaps on a number of normally formatted 
disks. 

Head bang occurs when the R/W head is pulled back 
to track 1 by the normal format routine. The normal for- 
mat assumes that the head is as far away as possible and 
steps the head back 45 tracks—BANG!! However, pro- 
vided that the disk drive has accessed at least one prop- 
erly formatted disk, the current position of the R/W head 
can always be found at memory location $22. Fastnew 
reads this location and calculates the necessary steps to 
pull the head to track 1 with NO bang. 

As I said, Rastnew makes one assumption, that the disk 
drive has previously accessed a properly formatted disk. 
(A small price to pay for extending the life of your 1541 
disk drive.) 

T hope that you will find Rasmew a useful utility. I would 
like to extend my appreciation to my colleagues at R. 
1. Brachman Assoc., Inc. for their assistance in devel- 
oping this program. I welcome correspondence from 
readers. Write to Don Lewis, PO. Box 521, Folsom, PA 
19033. Please include a stamped and self-addressed en- 
velope if you desire a reply. O 

SEE PROGRAM LISTING ON РАСЕ Ш 
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All of Michael Montauck's 
(Brooklyn, NY) images 
were created with the Ko- 
la Pad ond Koala Painter 
software: his representa- 
tions of CIS (the Compu- 
Serve Information System) 
and Graffiti (bottom), and 
the swinging cats at Ahoy! 
(bottom right, роде 35). 
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rs to Ahoy/'s Art Gallery will receive roy- 
alties based on the sale of disks containing the best 
computer grophics received, both published and un- 
published. Send your best work on disk, occompon- 
ied by a stamped and self-addressed mailer, to Mor- 
ton Kevelson, РО. Box 260, Homecrest Station, Brook- 
lyn, МҮ 11279. Indicate the drawing package that was 
used to create the image. If you employed a bit map 
of your own design, indicate the appropriate file 
| parameters, i.e., hi-res or multicolor, location of bit 
| map, screen or color dato. 


Responding to our initial request for starving 
computer artists, John Matthews Jr. (San 
Antonio, TX) indicates that he is starving, 
but only for attention. Hence his choice of 
attention-getting celebrities for his images, 
all created on the Koala Pod. Betty Boop 
(right) and charter Gremlin Gizmo (below) 
were drawn freehand, pixel by pixel, using 
Koala zoom mode. Yosemite Som (left) was 
drawn freehand, based on a grid designed 
to proportion the screen pixels to match the 
proportions of the Okimate 10 color printer. 
(Тһе proportions actually look better on the 
printout than on the screen shot shown.) 
John digitized his image of Jane Russell 
(above) with Computereyes (see review, p. 
66) ond odded finishing details by hand. 
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[MSD Sure Copy 


At last a complete utility package for the MSD Dual 
Drive. This is the first MSD utility program that does 
it all. The main menu options include: 


Sure Copy will put all errors automatically on disk: 20, 21, 


22, 23, 27 and 295. 
n——Ó—— 


* Scratch a File 
* Rename a File 
* View Directory 


53995 


% Сору Protected Disk 

* Copy Files 

* Format a Disk 

* Change Disk Name 

* Quit 

* Copy Unprotected Disk 


TOP SECRET STUFF | 


—ом5 — New Wedge 


— Vi Track Reader — ID Check 
— V Track Formatter — — Unscratch 
— Drive Mon — View RAM 
— The Doc = 

— Sync Maker. = 

— Sync Reader — Fast Format 
— Change Drive No. 


— BW Maien. $19.95 


TOP SECRET STUFF II 
All C128 Compatible 


— Write Protect Disk 
— Unwrlte Protect Disk 


— Брій Screens (Hortzontally) 
— Smooth Scrolling 

— Save Ram From Under Roms 
— No Drive Rattle On Errors 

— Triple Drive Head Speed 

— Autoboot Maker 

— Koala Screen Dump 

- Display GCR 

— Fast Disk Eraser 

— Protect Scheme For Your Disks 


— 3 Minute Copy 
-ом5. 


WAR GAMES 
AUTODIALER 


1-Ашо Dial wil automatically dial a set of numbers you choose. 
lew Numbers wil review numbers thi әжеге by a computer 
Numbers wil save numbers where a computer answered 
rdcopy of Numbers wi print Out i of numbers where a computer answered 
$-LOAD Numbers will load n numbers 10 continue where ^ ieh off 
{Continue wil pick up dialing where it was ierrupted 
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THIRD EDITION! NOW AVAILABLE! 
M you're tired of being harassed by protected software and loo many сору 
programs, then this is the book for you! This 224 page manual covers the 
Gambit from legalities to protection methods to step-by-step back up pro- 
cedures. Now you can learn both how to protect and unprotect software! 
The techniques covered include copying cartridges to tape or disk. tape pro- 
and disk protection Disk protection covers error no 's 20.21. 22, 23, 
Ind 29 plus single track formatting, header modification. header swapp- 

ing and writing, reading and wnting modifed bit densibe: 


3rd 
Edition 


plains, telis how to detect and how to write them with included software. 
im useful utiles and many protecton listings! Our disk analysis programs 
{ection methods used on your onginals. A diskette with all зот. 


ible for a minimum extra charge. This may not be the only book 
your should have for the C-64, but it is certainly the one book you shouid 
not be without! 
C64 Book only $1995 US 
Book & Disk of all programs $29.95 US 
Vic 20 book. Сап. & Tapes only 5995 US 


$59.95 


THIS MANUAL DOES NOT CONDONE PIRACY 


"SHIPPING: $2.00 


Enclose Casmers Checa Money Order or Persona — | 
Check Asom 14 Gays tor delivery 2 10 7 cays tor | 
phone orders Canada orders must be n US 

Donars VISA — MASTER CARO — COD 


Programs for Са $2005 8H on мов | 


a 


бөлене Submissions invited 


Reader Service No. 148 
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MegaSoft Linie 


РО Box 1080. Battle Ground, Washington 98604 
Phone (206) 687-5116 * BBS 687-5205 Aner Hous Computer to Computer. 


D-CODER 


* Translates any machine language program into easy-to- 
read English descriptions with compl lanations of 
each command! 
* Makes complete notations of all important memory 
locations accessed by the program! (SID, VIC. MOS, 
KERNAL, etc.) 
* Gives you three ways of accessing programs 

1) Will read and list programs from DISK 

2) Will read and list programs trom MEMORY 

3) Direct user imput (from magazines, etc.) 
* Can be used to locate and examine any machine 
language program protection routines! 
* Can be used 10 easily break apart machine language 
programs for study and examination! 
* Printer option for complete hard copy listings! 


N-CODER 


the machine 
language manipulator 
Allows you to easily make changes in machine language 
programs... right on the disk! 

* Rewrite ability allows code to be altered and then 
rewritten directly to the disk! 

* Features sector-by-sector scrolling assembly language 
display of machine language programs! 

* Notation of ASCII text equivalents for easy spotting of 
embedded text strings! 

* handy reference display of 
commands and their ML numerical equivelents! 
* Byte splitter for easy splitting of decimal addresses into 
low byte-high byte format! 


Bulletin Board 


Set up and operate rour own bulletin Board win one 
or two Gah әлеті Th one has ай the features and 
You can customize / pany yourteit 
LAUN MEGASOFT-BBS — & READ SYSOP MESSAGES. 
Z CREATE MEGA FILES  9—WAITE OPENING MESSAGE 
3-ADD TO SYSOP 5 CORNER 10 READ LOG 
ANEW SYSOPS CORNER — 11.CYCLE LOG 

READ MESSAGES. 12. READ DOWNLOAD FILE 
‘SCRATCH MESSAGE 13.SCRATCH DOWNLOAD FILE 
CYCLE MESSAGES. 14-00 TO OTHER SYSTEMS 

15.САЕАТЕ OTHER SYSTEMS 


You Now Longer 
need (о be an 
EGGHEAD to 


The perfect companion 
program to D-CODERI 


* Leveled Access « Expert Mode 
* Private Message Base + Open Chalk Board for 
+ Up to 300 Passwords Highest Level Access 


а 
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Tumbling Dice 


ctures 


BY DALERUPERT 


he next roll of the dice may determine your 

future. Three dice rattle in the cup. The ques- 

tion is this: What is the probability that you 

will roll an eleven? You confidently reach for 

your portable computer and quickly load the three-dice 
simulation program. Within moments it has calculated 
the answer to this final question on your statistics exam. 
This article will not reveal the answer to the question. 
We will develop some programs to solve it, though. We 
will also look at a loftier topic than dice rolling, called 
data structure. The data structures of a program affect 
its speed, versatility, and debuggability. We will look at 
some of the tradeoffs of using different data structures. 


italia.net 


As we saw last month, there are essentially three ways 
to determine probabilities: (1) formula evaluation, (2) ran- 
dom simulation, and (3) enumeration. It is very unlikely 
that any reference book contains the formulas of specific 
outcomes for the roll of three dice, so Method 1 is no 
good for solving our problem. This month we will devel- 
op procedures for implementing Methods 2 and 3. 

Method 2 is sometimes referred to as a Monte Carlo 
approach. It is often used when the total number of pos- 
sible outcomes is so large that it is impossible to list them 
all. Method 3 lists all possible outcomes and is feasible 
only in cases where that number is small enough and de- 
terminable. 
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/ A] V EFFECTIVE 
4 Shadow is a new and revolutionary 
N p KA K way to duplicate even your most 
"i | protected software. It encompases all 
| VI dvances in software, as well 


A] V s y ated piece of hardware. 
st utility available 
today. n copy the other copy 
programs. 2 of Shadow's unique 
abilities, w rotection is a thing of 1 


ur order we expect the 
— that's right, 100% — of all 


add $7.50, T 
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It is easy to calculate all possible outcomes for three 
dice. These nested FOR-NEXT loops generate every 
combination: 


10 FOR А-1 TO 6 : FOR B-1 TO 6 : FOR С-1 
TO 6 

20 PRINT A;B;C 

30 NEXT C,B,A 


Instantly the most tedious part of statistics cl: lim- 
inated! You might send this output to the printer. Then 
you could find the sum of each triple and keep track of 
how many of those totals equal the desired value. The 
probability of rolling an eleven is the quotient of the num- 
ber of "successful outcomes" divided by the number of 
possible outcomes. Here a successful outcome is one in 
which the sum of the three dice is eleven. 

Of course we will let the computer keep track of the 
sums and any other information about the dice that we 
desire, But before we proceed with this enumeration pro- 
cess, let's try the random simulation method. 


ON TO MONTE CARLO 

Very little work is needed to simulate and analyze the 
rolling of three dice, as the Dice Simulator program on 
page 99 shows. Random values from 1 to 6 are chosen 
for each of the dice. Their total value is calculated and 
compared with the desired value. If their sum is eleven, 
the variable GOOD is incremented. The variable М keeps 
track of the total number of rolls. The number of “good” 
rolls divided by the total number of rolls should approach 
the probability we are looking for. Line 70 displays 100 
times this probability, giving us the percent probability. 

Supposedly the longer this program runs, the closer 
the result comes to the theoretical value. Of course it 
is possible that the first three dice we roll have a sum 
of eleven, giving a 100% probability. On the other hand, 
we may roll 100 sets of dice before getting a sum of ele- 
ven. Neither result is very accurate, Only after numer- 
ous rolls with a good random number generator will the 
results settle down to a value close to the true value. 

We have seen in previous articles that the random num- 
ber generator in our microcomputers is not truly random. 
The non-randomness may cause the program to “home 
іп” оп an inaccurate value. Using an imperfect random 
number generator is equivalent to rolling loaded dice. 
Т suggest that you run the Dice Simulator program to see 
if you can determine the actual probability before you 
evaluate it exactly in our next program. 

The disadvantages of using this Monte Carlo method 
should be clear. It may require a fair amount of time to 
arrive at a reasonable value. Also, it may be difficult to 
know how reasonable the value is. If the random number 
generator is not very good, the answer may not be very 
good either. 

The main advantage of this method is that you don't 
have to be able to list all possible outcomes or even know 
how many there are. For simulating radioactive decays 
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and molecular motion (topics for next month), this is cer- 
tainly a desirable characteristic. 

You can easily modify the Dice Simulator program to 
answer other questions, such as: 

1) Are you more likely to roll a seven or an eleven with 
three dice? 

2) What is the probability of rolling a total value great- 
er than fifteen? 

3) What is the probability that the value on one die 
equals the sum of the values on the other two dice? 

4) Is there a fifty percent probability that all three dice 
show an even number? 
Use your intuition to make a guess on each of these be- 
fore running your program. Probabilities are not always 
intuitive. 

To help you get started on Problem 1, you might add 
this line: 


65 IF TTL=7 THEN G2=G2+1 


Also change line 70 to print the value of 100*G2/N next 
to the other probability for a side-by-side comparison. 


MORE SOPHISTICATION 

The bare-bones Dice Simulator program uses the most 
basic data structure, simple numerical varia The пе: 
program goes to the other extreme. It contains numeri- 


5 BridgePro® 7 


BridgePro is the first program I've seen that provides a challenge 

for the average-to-excellent bridge player. . Tho documentation іс 

excellent and allows a new bridge player to learn tho basics. 
—Harvey Bernstein, Antic Magazine, Feb. 1985 


After having tried three other bridge programs, | find that BridgePro 

is indeed a pro game. . It is designed for both the beginner and the 

advanced player. ..| didn't find anything that could bo improved upon. 
—Helen Garret, Apple-Dayton Journal, March 1985 


I you like to play bridge and don't have three other players ever- 
‘eager to play, this software is a must. For bridge freaks it's good 


‘enough to justify buying a computer 


К A % 
/ 


beginner, this is great software, 
— Christian Basler, МҮ 
Jonus 
for Bridge 
СА Residents add 8228 Salos Tax 
‘Add $2 lor COD/UPS 2nd Day Air 


VISA MasterCard Welcomed 


Commodore 64 • Atari 
Apple ll • IBM PC/PC jr 


Commodore Users Group 
Review, Sept. 1984 


BridgePro is designed to let you learn, 
improve, or just enjoy the card game of 
bridge. The program provides com- 
plete bidding, play and scoring for 1 ог 
2 players. Features include random. 
hands, bidding help, demonstration 
mode, hand replay/quit, best hand. 
auto finish. duplicate mode, and fast 
machine language speed. 


Money Back Guarantee. 
24-Нош Toll Froo Orders 
1-800-443-0100 өзі. 158. 


$3 


DISK 
Computer Management Corp. 
2424 Exbourne Ct. 
Walnut Crook, CA 94596 
Dealer Inquiries Invited 


Reader Service No, 117 
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cal arrays which are indexed by other numerical arrays. 

When three dice are rolled, there are 216 possible out- 
comes. Each die may have any one of six possible values, 
and 6*6*6 is 216. The computer can readily handle this 
many items. The program Dice Analyzer (on page 99) 
generates all of the 216 outcomes and stores the values 
of each of the dice in a numeric array. This program an- 
alyzes the probabilities of various events by the exact pro- 
cess of enumeration. Once the list of outcomes is 
mined, the computer may look through the list, identify- 
ing “successful” outcomes and calculating the desired 
probabilities, A successful outcome is one which meets 
certain criteria, such as the sum of the three dice being 
eleven. 

The value of each die for every one of the 216 possi- 
ble outcomes is stored in the numeric array ROLL(N,D) 
where N is the outcome number (1 through 216) and D 
is the die's identifying number (1 through 3). If ROLL(7.2) 
equals 4, then the value of the second die is four on the 
seventh roll of the dice. If the third die had a value of 
five on the twentieth roll, then ROLL(20,3) equals 5. 

In addition to keeping track of each die's value, the 
program stores the count of each face value for every 
roll in the numeric array CT(N,V). Again № is the out- 
come number, and V is the face value (1 through 6). If 
CT(9,2)=1, then only one die had a value of two in the 
ninth roll. If no dice had a value of two in the 216th roll, 
then CT(216,2)=0, 

One other numeric array is filled as the various out- 
comes are enumerated. The array TTL(N) stores the sum 
of the three dice on the Nth roll. If TTL(40)=7, then 
à total value of seven occurred in the fortieth roll. 

Lines 40 through 110 enumerate the outcomes and fill 
the arrays. This program determines exactly the proba- 
ы that 

1) Three ones are rolled. 

2) At least one three and no sixes are rolled. 

3) No twos are rolled. 

4) The sum of the three dice is eleven. 

This program is actually “overkill” for the sake of il- 
lustration. It is certainly not necessary to set up such a 
complicated set of arrays in order to find these proba- 
bilities. We could keep a tally of all successful outcomes 
as the values are generated in line 60. In fact, the simp- 
ler method would run more quickly and use less memory. 

Why bother with this more complicated program? With 
the more sophisticated data structure we gain greater ease 
of analysis and greater flexibility in displaying the re- 
sults. To implement Test 2 listed above with the simpler 
structure, we might have to use line 65 such as: 


65 IF (A=3 OR B=3 OR C=3) AND (A<>6 AND 
B<>6 AND C<>6) THEN T2=T2+1 


This is somewhat more cumbersome than the correspond- 
ing statement in line 150: 


150 IF CT(N,3)>=1 AND CT(N,6)=0 THEN T2= 
T2+1 
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Try to determine the probability that exactly one three 
and no sixes are rolled. I don't think such a test could 
be contained in one line with the simpler data structure. 
(Let me know if I'm wrong!) Line 150 could be easily 
modified by removing the “<” to perform such a test. 

The ROLL array is needed only if selected outcomes 
are to be listed, as was done for Test 4. RNUM(M) keeps 
a list of all the roll number indices which satisfy Test 
4. For example, if the twentieth roll had a sum of ele- 
ven, and if four previous rolls also had sums of eleven, 
RNUM(5) would equal twenty. RNUM is used as an in- 
dex into ROLL so that the events satisfying Test 4 can 
be printed in line 290. 


DATA STRUCTURE OF DICE ANALYZER 
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The diagram shows the relation between TTL(), 
КОШ). and RNUM( ). On the 29th roll (N=29), the 
dice had values 1, 5, and 5. The sum of their values 
eleven so TTL(29) equals 11. This was the second oc- 
currence of a total value of eleven. Consequently 
RNUM(2) equals 29. Similarly the 14th roll was the thir- 
teenth occurrence of an eleven. The diagram shows that 
RNUM(I3) equals 114, TTL(114) equals 11, and the three 
dice had values 4, 1, and 6. 

We have covered the fundamental concepts of index- 
ing, pointers, and linked lists in the Dice Analyzer pro- 
gram. Study the program and the data structure to under- 
stand how the variables are defined and related. Better 
yet, see if you can modify the program to handle more 
dice. Perhaps you could change the Dice Analyzer pro- 
gram to answer the four questions suggested earlier for 
the Dice Simulator program. 

Think about the possible data structures as you begin 
to create any program. A more complicated structure 
might be harder to implement, but it may pay off with 
ease of expandability and versatility later. ГІ 

SEE PROGRAM LISTINGS ON PAGE 99 
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presenting... CAPTURE 


A NEW WAY TO UNLOCK THE POWER OF YOUR C64 OR C128* 


CAPTURE IS A CARTRIDGE THAT PLUGS INTO YOUR COMPUTER'S EXPANSION PORT. 


* CAPTURE DOES NOTHING — UNTIL YOU PRESS ITS CAPTURE BUTTON. UNTIL THEN, A 
RUNNING PROGRAM CANNOT DETECT ITS PRESENCE. 
* CAPTURE THEN TAKES CONTROL — NO IFS, ANDS OR BUTS — AND PRESENTS A MENU. 


CAPTURE WILL NEATLY SAVE EVERYTHING IN YOUR COMPUTER TO YOUR 1541 OR 
COMPATIBLE DISK DRIVE — ALL 64K OF RAM, CPU, VIC AND SID CHIP 
REGISTERS — EVERYTHING. IN EASY TO VIEW CHUNKS. 


* CAPTURE WILL, IF YOU WANT, PRE-CONFIGURE YOUR COMPUTER'S RAM SO THAT 
ONLY MEMORY ALTERED BY YOUR PROGRAM NEED BE SAVED. 


CAPTURE WILL WRITE A BOOT ON YOUR DISK SO YOU CAN RELOAD AND BEGIN 
EXECUTION RIGHT WHERE YOU LEFT OFF. 


CAPTURE DOES ALL THIS AT A СОЗТ or JusT $39.95 


BUT HERE'S THE BEST PART 


* CAPTURE WILL MAKE AN AUTO-START CARTRIDGE OF YOUR PROGRAM. IT'S EASY! 
JUST FOLLOW THE DIRECTIONS ON THE SCREEN. NOW PLUG IN YOUR 
CARTRIDGE AND TURN ON YOUR COMPUTER. IN LESS THAN TWO SECONDS 
YOUR PROGRAM BEGINS AGAIN AT PRECISELY THE POINT WHERE YOU 
CAPTURE'D IT. MAGIC! 


BESIDES CAPTURE, YOU NEED A promenade C1 AND A SUPPLY OF CPR3 
CARTRIDGE KITS. 


ORDERING INFORMATION 

* CAPTURE CARTRIDGE — COMPLETE WITH INSTRUCTIONS 
e promenade C1 — EPROM PROGRAMMER WITH DISK SOFTWARE 
* CPR3 CARTRIDGE KIT — PC BOARD, CASE AND 3 EPROMS 
* DR—EPROM ERASER, TWO AT A TIME, 3 TO 10 MINUTES .. 
* STARTER SET — CAPTURE, promenade C1 AND 1 CPR3 
* DELUXE SET — CAPTURE, promenade C1, DR AND 2 CPR's 


$ 39.95 


. 149.95 
. 199.95 


SHIPPING AND HANDLING — USA: UPS SURFACE $3.00 
BLUE LABEL $5.00 NEXT DAY AIR $13.00 
CANADA: AIR MAIL $7.00 OTHER FOREIGN AIR $12.00 


CALIFORNIA RESIDENTS ADD APPLICABLE SALES TAX 
COD ORDERS, USA ONLY, ADD $3.00 


C64 AND C128 TM COMMODORE ELECTRONICS, LTD. "WHEN OPERATING IN 64 MODE 


TO ORDER: TOLL FREE 800-421-7731 TECHNICAL SUPPORT AND 408-287-0259 
FROM CALIFORNIA 800-421-7748 FROM OUTSIDE THE US: 408-287-0264 


JASON-RANHEIM 


580 PARROT STREET 
SAN JOSE, CA USA 95112 
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Commodore 64 Accessories 


xx SUPER > x 
Summer Sizzler Sale 


Sale Positively Ends 9-15-85 
Prices will go back to regular sale prices 
C128 Commodore Computer 


Expandable to 512K, runs C-64, CPM, and 7.0 Programs 
(Add $10 Shipping) 


15⁄2" Commodore 150-170 CPS Printer 


Near Letter Quality, Multiple Pin Tractor Friction Feed 
Best Printer Value in U.S.A. (Add $17.50 Shipping) 


Commodore: 64 IEEE Interface 


you to run Pet Peripherals on the C-64, including the 
egabyto Disk Drive ond 15's" Printer 


Juki Printer/Typewriter 


Letter Quality, daisy wheel. use as typewriter and or printer 
(outo correction) (Add $10 Shipping) 


SCM 80 CPS Printer 
Tractor Friction 10" Famous Мате Printer does Graphics 
w Interface. (Add $10 Shipping 


Cardco G Plus Interface 
Converts Commodore to centronics for use with most printers, plus 
does Commodore graphics on graphic printers 


Alphacom 40 Column Printer 


Thermal technology - does graphics. (Add $7.50 Shipping) 
Alphacom С-64 or Atari Interface $8.95. 


190K Slim-Line Disk Drive 
Cooler, 20% faster. quieter than 1541 drive (Add $10 Shipping 
One Megabyte Disk Drive (1000K) 
Second drive. (Add S10 Shipping 


13" Premium Quality Color Monitor 
Better than 1702, with separated video inputs. 
Voice Synthesizer 


Allows you to talk through your computer, Optional software lets 
you play talking adventure games (Zork, etc 


80 Column Board - 4 Slot Expander 


Allows you to program in 80 columns. plus gives you 4 slot switch 
selectable expander 


Auto Dial Modem with Super Smart Software 


Upload. Download. Print. Catalog, This Package has it all!!! 
Best Modem Value in the U.S.A.!! 

Musicalc | Software 
The Best Musical Software for the C-64. allows you to change all 
porameters 

Oil Barrons Software 
Better than Monopoly, comes with game board. disks and 
instruction manual. Strike Oil or Live in the Poor Farm 


Add $3.0 lor shipping, handling and 


Check. Money Order or Personal Check. Allow 14 
тү. 2107 days for phone orders. 1 day express mail! 

VISA — MASTER CARD — C.O.D. 
Нос ОО to Conade_APO-FPO. 


Reader Service No. 147 


ive hooks up to C-64 with IEEE interface. perfect os o 


Add $14.50 Shipping] 


Summer 
Sizzler Sale 


‘289% 
5199.” 
5659 
‘229% 
s149% 
549% 
522 95 
s139% 
s179% 
69%: 
339% 
‘59% 
39% 
514% 
549% 19% 5095 


* plus Software Coupon Discounts 


We Love Our Customers 
22292 М. Pepper Rd.. Barrington, Illinois 60010 


312/382-5244 to order 


Reg. Sale 
List Price 


53499 +29909 


58959» %29999 


5109° +6900 


33499 *249% 


5299% 159% 


51099 +5990 


5999 +2495 


%2499 +1699 


5889? +19990 


52999: 199% 


589% 54999 


514999 37999 
$1295 50% 


559% 329% 


//www.oldgamesitalia.net/ 


http://www.oldga ianet/ | 


FANTASTIC COMPUTER PRINTER SALE 


10X СОМ-5ТАВ” 
HIGH SPEED . 


Tractor Friction Printer 
130-150 CPS 


Com-Star List $499 
COM-STAR 157" 150-170 CPS Printer 5319% 


* Lowest Sale Price, Premium Quality, Tractor/Friction Printer in the U.S.A. (Best Value) 
* High Speed 130-150 Characters Per Second * 40, 46, 66, 80, 96, 132 line spacing 
* Word Processing, Letters * Business Forms * Labels, Graphics, Tables * List Programs 
* Fantastic Graphics * Print Modem Data * The Most Important Accessory For Your Computer 


Premium Quality ПЕ SMITH А 
130-150 CPS 10X СО? HINE CORONA € Olympia 

„High Speed Fath т 10" 80 CPS Printer Executive Letter Qualit 

"XH" standard single sheet or Friction/Tractor Bidirectional Dot 15" Daisy Wheel Printer 
continuous feed paper, Bi-directional, Matrix printer with six pitches 1 world's daisy wheel 
impact, dot matrix, 130-150 CPS, 9 x 9 including condensed and enlarged 
dot matrix with double strike type for impeccable printing. Drop in 
capability for 1& x 18 dot matrix (near cassette ribbon; centronics interface 
letter. quality), high resolution bit included. 
image, underlining, downloadable List § 


Summer Sale $149.00 
true lower d 


5 (Limited Quantities) 
d subscripts, prints Y 
dard, block graphics, and special 


ters. It gives you print qua 


Super Summer Sale Ends 9-15-85 


Hace) Better than Epson F п ВЕ NECI i 
MOM TOR А - к Ф Olympia 

М 9.00. Sale $199.00 Printer/Typewriter T " " LE Deal 
Combination $229.00 | Printer/Typewriter Combination $399.00 
Premium Quality 150-170 CPS JUKI" Superb letter quality, daisy | Better than IBM Selectric. Superb 
1014X COM: STAR Business wheel "printer typewriter | computer printer combined with the 
^an " е; eq com ation. Two тас in oi AA AX ү er. 
Super High Speed Printer $319.00 just a tHleh of the таспіпез metra | TWO machines in опе, just Шек the 
П the lures of the 10X COM- | 19 ve, typewriter keyboard, | SWitch for up to 20 CPS printing (300 
R PRINTER plus 1515" carriage |! ТЕ ыма control "and | Words per minute) on a 15" carriage 
and төге powerful electronics > tte ribbon: | that handles up to 14 1/8" In. paper, 
to handle large ledger warranty) centronies | Drop in cassette ribbon — express lift 

(Better than Epson ^ 2 р 


2 serial port built in | 9f, correction, С parallel 
19.00. Sale $229.00. Inter 


PARALLEL INTERFACES 
For VIC-20 and COM-64 — $59.00. Apple — $59.00. Atari — $59.00. 


PROTECTO 


WE DO NOT EXPORT TO OTHER СОШ EXCEPT CANADA We Love Our Customers 
vedere ira Сын Айны 1А 22292 №. Pepper Rd... Barrington, Illinois 60010 


No C.O.D. to Canada or APO-FPO 312/382-5244 to order 
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Commodore 64 


One Megabyte 


Sale Sale 


179 Disk Drive ‘179 


Store Spreadsheets, Databases, Wordprocessing Data, Etc. 
* Commodore 64 % РЕТ • 8032 * В128 


The one megobyte disk keeps you from hunting through hundreds of disks for your programs: plus running out of 
room on your drive for Data base Data, Word processing Text, Spreadsheet Data, Business program Data, etc 


With the One Megabyte Disk Drive you can store over 5% times the capacity of the 1541. You can store your 
‘own programs and any back-upable commercial programs plus data from your business programs”. Perfect os а 
second Drive! ! !! Enter the world of professional computers today. C-64 requires IEEE interface. 

List $899.00. Sale $179.00. LIMITED QUANTITIES! 


3199? Sale 5199? 


1572" High Speed 
150-170 CPS 


BUSINESS PRINTER 


The 8023 is a highly advanced 136.250 column 15':" professional tractor friction printer with full Bit image graphics and 
downloadable characters for custom reports and program listings. The paper feed includes a multiple pin tractor for 
smooth error free operation. With the ribbon rated at 1 million characters (no mess cartridge) and the print head at 100 
million characters this printer will last a lifetime. Full formatting with near letter quality makes lining up decimal 
points, automatic "S" signs and tabbing look fantastic and easy to use. With out а doubt THIS IS THE BEST PRINTER 


Requires 2 drive software 


VALUE IN THE U.S.A, Lis! $899.00 Sale 5199.00 LIMITED QUANTITIES! 
SPECIFICATIONS 
PRINTING METHOD COLUMN CAPACITY RIBBON LIFE GRAPHICS 
Serial Impact Dot Matrix 126-250 1 Million Characters Bit Image 
le Characters 
PRINT RATE LINE SPACING PAPER WIDTH Programmobi 
150-170 Characters per Programmoble 3" to 155" tractor or Reverse Characters 
second (CPS) single sheet friction 
PRINT STYLE COPES, i INTERFACE ERROR HANDLING 
Neor Letter Quality елік roti riy IEEE Protocol E 
PRINT DIRECTION RIBBON TYPE CHARACTER SIZE Self - Diagnostics 
Bi-directional Cartridge ($14.95) 0.116" high, 0.08" wide Microprocessor 


Commodore 64 IEEE Interface 


This interface plugs into your Commodore 64 Disk Drive port and allows you to hook up the 1 Megabyte Disk Drive and 
8023 Printer as well as other IEEE devices. Separte power supply insures reliability. Fantastic Interface 
List $109.95. If bought with printer or disk drive $69.00. 


no interface needed for PET. В-128. and 8032 computers 


Add $17.39 lor shipping, handling ond insuronce. Ilinois residents 
please add 6%, tox. Add $35 00 for CANADA. PUERTO RICO. HAWAN p RO T EC TO 
ALASKA. APO-FPO orders. Conodion orders must be in U.S. dollars 
WEDO NOT EXPORT TO OTHER COUNTRIES EXCEPT СА! 2 
Enclose С Check. Money Order o We Love Our Customers 

22292 М. Pepper Rd., Barrington, Illinois 60010 


days lor delivery. 2 o 7 days for phone orders. 1 day 
No CO D. to Conado, APO-FPO. 312/382-5244 to order 


VISA — MASTER CARD — C.O.D. 
Reader Service No. 147 
‘tp://www.oldgamesitalia.net ww.oldgamesitalia.ne 


(Premium Quality) s (Premium Quality) 
Super Summer Е 
* Built in Speaker and Sizzler Sale і Beautiful Color 
Contrast 


$ High Resolution 
Front Panel Controls 16 0°5` Separated Video 
For Video Recorders Sharp Clear Text 
Anti-Glare Screen 


40 Columns x 24 Lines 
Supports 80 Columns 


List $329° 
13" Color Computer Monitor Reg. Sale Sa 


сымал cible 99.35 Summer Sale $169** 
14" COMMODORE 1702 COLOR MONITOR Super summer $3 76)00: 


add $14.50 shipping List $299.00 Sizzler Sale 


For Small Business Reg. Sale 50296 
Computers 


Apple - Commodore - 
Atari - Franklin - etc. 


15 Day Free Trial - 90 Day Immediate Replacement Warranty 
SEE eae e Se ee САА УСЕН ОРЕ Еа 2-27: | 


12" XTRON SUPER HI-RESOLUTION MONITOR Super Summer 51 0995 
80 Columns x 24 Lines, Super Hi-Resolution 1000 lines Green or Amber Sizzler Sale 
Super-Clear "Easy to Read” text with special anti-glare screen! (119. Оу) List $249.00 


125 JENIH HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 


B0 Columns x 24 Lines, Hi-Resolution, crisp clear eosy to 


Super Summer 
read tex! with anti-glare screen! A MUST for word processing. (Lrd. Qiy.) List $199.00 ` Sizzler Sale $ 95° 


12" MONITOR GREEN OR AMBER TEXT ,,,:);:00 Super Summer 56095 


80 Columns x 24 Lines. easy to read up front controls (Ltd. Oty Sizzler Sale 


" Super Summer . 
A Ын ушшш Mo f gon 


le $9.95 


PROTECTO 


We Love Our Customers 
22792 М. Pepper Rd., Barrington, Illinois 60010 


VISA — MASIERCARD--CO.D. — NaCO D toCorodo, АРОЛРО 312/382-5244 to order 
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PROFESSIONAL 
HANDICAPPING SYSTEMS 7 * 


% PRESENTED BY PROFESSOR JONES © 
GLO. Thoroughbred “old” ша» 7 K 


ЕРІ 


ІВМ" 
APPLE™ 
TRS-80™ 
cpm™ 
COMMODORE™ 


EGLO. Enhanced “Gold” Edition™ 


GD, Gold Dog Analysis ™ 
ONES es 


Prof. Jones 


1940 W. State St. 


МНН. Master Harness: Boise, ID 83702 


Handicap 
E 
Professor Pix Football 
[cj ша 48 HR. FREE 
SHIPPING 
NBA, Basketball™ 


LOT. Lottery Analysis™ 


рш 


“Our operator will show you how easy it is to operate. At | 
the moment, however, he's getting his diaper changed..." | 


46 AHOY! 


esitalia.n 


w.oldg 


— 


talia.ne 


zIISATA 


We omitted two characters from line 620 in Lucky Lot- 
tery (July '85), causing the program to crap out with a 
syntax error. Correct line 620 to read as follows: 


*620 IF A$<>"[F1]" OR A$O"[F3]" OR A$<>" 


[F5]" ТНЕМ580 


In Duck Shoot (June '85), a printer malfunction added 
extra spaces to lines 10 and 120-160. These spaces should 
be ignored. 

We apologize for any problems caused by the above 
errors. Remember that corrections to Ahoy! programs are 
posted on our bulletin board (718-383-8909 — modem re- 
quired!) as soon as errors are spotted. 


SMALL THINGS CONSIDERED 


Ahoy! offers its congratulations to 
Kenny Hill 
Jamaica, NY 
winner of a subscription to Ahoy! courtesy of New 
York's Small Things Considered radio show (heard 
weeknights 5-8 and Saturdays 6-8 on WNYC АМ83). 


PROGRAMMING 
TIPS WANTED 


Here's a chance for yov, the readers of 
Ahoy!, and us, the editors of Ahoy!, to work 
together. If we each do our part, we can make 
Ahoy!'s soon-to-debut programming tips col- 
umn the finest in any magazine. Your part will 
be to provide hints, tips, and programming 
routines that can simplify your fellow Commo- 
dore computerists’ lives, enhance their abili- 
ties, or both. Our part will be to come up with 
а catchier title by the time this column actual- 
ly appears. 

Keep run-of-the-mill, twice-told tips to your- 
selves. This is Ahoy! We want valuable pro- 
pened tips. And we'll pay premium rates 
for them. 

Send your submissions to Ahoy! Program- 
ming Tips, lon International Inc., 45 West 34th 

Street—Suite 407, New York, NY 10001. 
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Commodores Disk Drive Companion to the 128 


fter taking a close look 

at the capabilities of 

our 1571 prototype, we 

have been very favor- 

ably impressed. In 
most areas operating speed has been 
improved, as much as nine times for 
a straight LOAD. Even faster perfor- 
mance can be obtained under certain 
conditions, Commodore also appears 
to have learned their lessons on the 
1541 very well, as careful attention 
has been given to previously trouble- 
some hardware details. 


SPECIFICATIONS 

To fulfill its primary purpose of 
supporting the Commodore 128 com- 
puter, the 1571 has two distinct per- 
sonalities. As a Commodore drive it 
behaves very much like a double 
sided 1541 disk drive, Formatting a 
disk (a 43 second process) results in 
tracks 1 to 35 being laid down on side 
0, the same as on the 1541. The flip 
side, side 1, contains tracks 36 to 70. 
Note that side 0, the side which the 
1541 uses, is the underside of the disk 
when it is placed on a surface with 
the label facing up. As expected, dou- 
ble siding the disk also doubles the 
overall data storage capability. How- 
ever, not all of the drive capacities 
are doubled. 

Total disk capacity for a Commo- 
dore formatted disk is now up to 
349,696 bytes. A look at the direc- 
tory of a disk freshly formatted on 
a 1571 shows a total of 1328 blocks 
free. The maximum size of a sequen- 
tial file has been increased to a total 
of 337,312 bytes. A file this size will 
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How the 1541 and 1571 drives stack ир. 
READER SERVICE NO. 101 


By Morton Kevelson 


span both sides of the disk. Interest- 
ingly enough, the maximum size of 
a relative file is 167,132 bytes, the 
same as on the 1541. 

Track 18 on side 0 is reserved for 
the block availability map (BAM) and 
the disk directory. The BAM tells the 
disk drive which sectors have been 
reserved for data storage. Sector zero 
of this track contains the BAM for 
both sides of the disk. A separate 
copy of the BAM for side 1 is main- 
tained in sector 0 of track 53. The са- 
pacity of the directory is limited to 


144 file entries, as on the 1541, al- 
though the remainder of track 53 
does not appear to be used for any 
purpose. 


THE DOS 

Much work appears to have gone 
into the built-in disk operating system 
(DOS), so much so that Commodore 
has upgraded the DOS version to 
number 3.0. This is puzzling, as DOS 
3.0 is also used in the Commodore 
D9060 and D9090 hard disk units. 
The most recent DOS for a Commo- 
dore floppy disk unit was version 2.7 
оп the 8250 dual drive and its SFD 
1001 single drive counterpart. The 
latest revision on the 1541 is DOS 2.6. 


TIMING 

With regard to operating speed we 
have some good news. As mentioned 
above, formatting time for both sides 
of the disk is only 43 seconds. Pro- 
gram loading time, when used with 
a C-128, has been speeded up by a 
factor of nine as compared to a C-64 
with a 1541 disk drive. The follow- 
ing table shows the result of some 
simple benchmarks tests: 


С-64Л541 С-128/1571 
30K LOAD 77 Sec. | 85 Sec. 
30K SAVE 87 Sec. 58 бес. 
40K SEQ File 

Read & Write 230 Sec. 145 Sec. 
Read Only 112 Sec. 45 бес. 
Write Only 120 бес. 100 Sec. 
REL File 271 бес. 280 бес. 


The sequential file tests were con- 
ducted by running the following 
BASIC program: 

AHOY! 


p//www.oldgam: 


The 1571 drive with its lid removed. 
The power supply is on the right. 


Main circuit board rests below 
power supply and drive mechanism. 


10 REM DISK DRIVE TIMING 
20 REM SEQUENTIAL FILE BEN 
CHMARK 

30 A$="ABCDEFGHIJK" 

40 FORT=1T08 

50 В$=В$+А$ 

60 NEXT 

70 OPEN8,8,8,"SEQ FILE TES 
T,S,W" 

80 FORT=1T0460 

90 PRINT£8,B$ 

100 КЕХТІ 

110 CLOSE8 

120 OPEN8,8,8,"SEQ FILE TE 
ST, S, R" 

130 FORT=1T0460 

140 INPUT£8,B$ 

150 NEXTI 

16) CLOSES 


The relative file test consisted of 
creating a file with 512 records where 
each record was 254 bytes. Only the 
last record was written to. 

These timing tests are only part of 
the story. The 1571 has a “burst” 
mode which should result in much 
faster data transfer rates between the 
disk drive and a С-128. The burst 
mode is recommended only for 
non-critical data, such as bit maps, 
where a data error is not fatal. The 
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high speeds used by the burst mode 
leave little time for DOS error check- 
ing routines. Commodore 64 users 
will not be able to take advantage of 
the faster operating speeds without 
special software. The C-64 operating 
system does not have the required 
routines. Using a 1571 with a C-64 
will not give any speed advantage, al- 
though the extra disk capacity will 
still be available. 

The discussion until this point has 
centered about the Group Code Re- 
cording (GCR) scheme which is vir- 
tually unique to Commodore format- 
ted disks. The 15715 second person- 
ality gives it the ability to format 
using modified frequency mod- 
ulation (MFM) double density re- 
cording techniques. This format has 
been adopted by a large segment of 
the personal computer community, 
most notably by many CP/M ma- 
chines. Even in this case there are 
variations among machines, most 
notably in the total capacity of a for- 
matted disk. This can be related di- 
rectly to the number of bytes in a disk 
sector. 

The 1571 has considerable flexibil- 
ity with the MFM format. Sector ca- 
pacity can vary from 128 bytes up to 
1024 bytes. The following table shows 
the possible combinations. 


Sector # of Sectors | Disk 
Capacity рег Track — Capacity* 
128 Bytes 26 260K 
256 Ву 16 320K 
y 9 360K 
1024 Bytes 5 400K 


*Formatted capacity for a double sided disk. 


The MFM formats, as well as the 
high speed burst mode, are accessed 
via a new direct disk command, 1/0. 
The preliminary documentation in- 
dicated that mixing of the various 
MFM and GCR formats was possible 
on a single disk. Even formatting of 
single tracks is possible. These pros- 
pects are sure to gladden the hearts 
of many copy protection enthusiasts. 

We will report on CP/M on the 
C-128 with the 1571 in the near fu- 
ture. As of this writing (mid-June) 
Commodore has not released the 
CP/M operating system and support 


Closeup of the main circuit board. 
See key at right for chip layout. 


utility disks. 


COMPATIBILITY 

Although the 1571 is a double sided 
drive, it is still fully capable of read- 
ing and writing single sided disks for- 
matted on a 1541 disk drive. When 
working within C-128 mode, the 
drive initially assumes that the disk 
is double sided. If a single sided disk 
is inserted it takes the drive about 15 
seconds to convince itself that the 
second side is blank. Once done, all 
subsequent reads and writes are done 
in single sided mode, Unfortunately 
this second side checking routine oc- 
curs every time disks are swapped. 
The 15 second delay could become 
annoying if single sided format disks 
are frequently mixed with double 
sided disks. 

Double sided disks are filled on 
side 0 first. If you use a 1541 with 
a double sided disk you will not be 
able to access the second side. Flip- 
ping the disk will not work as the ro- 
tation is reversed. In addition, the 
track numbers run from 36 to 70. 
These are illegal as far as the 1541 
DOS is concerned. The real difficulty 
is when a 1571 is added to an existing 
C-64 system. As the disk fills, files 
will spill over to the second side. Try- 
ing to read one of these on a 1541 will 


1571 MAIN CIRCUIT 
BOARD LAYOUT 


A-CIA CHIP 
B-MICROPROCESSOR 

€-VIA єн» 

D—MFM DISK DRIVE CONTROLLER 
E-DEVICE NUMBER SELECTION SWITCH 
F-SERIAL PORT CONNECTORS 


return an illegal track or sector er- 
ror, The 1541 does not recognize 
track numbers greater than 35. 
When the 1571 is connected to a 
С-64 it reverts to 1541 mode. Under 
these conditions the drive will not 
read the second side of a double sided 
disk, Even formatting time reverts to 
70 seconds for a single side! Com- 
patibility with 1541 software is very 
good. All the standard DOS com- 
mands function as before. Nearly all 
of the copy protected disks we tried 
LOADed without any difficulty. 


THE ELECTRONICS 

The internal works consist of three 
modules, two for the drive electronics 
and one for the hardware. The pow- 
er supply module is completely con- 
tained in a perforated metal cage lo- 
cated directly above the main circuit 
board. This mounting position in- 
sures that heat dissipation will be 
away from the main electronics. The 
major heat generating components 
are the twin voltage regulators and 
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transformer on the left side. These 
supply the five volt DC and twelve 
volt DC requirements for the drive. 
The 120 volt supply line is fully 
filtered. 

The heart of the drive electronics 
is a 6502A microprocessor with 32 
kilobytes of disk operating system in 
ROM supported by two kilobytes of 
RAM. A 6526 CIA chip and a 6522 
VIA chip handle the I/O require- 
ments. The Commodore format GCR 
recording is handled by a custom 
large scale integrated circuit. The 
MFM recording for CP/M format 
disks is taken care of by a Western 
Digital WDI770 chip. 


MECHANICALS 

As with all of Commodore's disk 
drives, the design of the 1571 is rev- 
olutionary. For the end user the most 
significant improvement is the incor- 
poration of an optical sensor for the 
track one head position. This should 
virtually eliminate the alignment 
problems which plagued the 1540/ 
1541 disk drives. The mechanical 
stops are still present but they are not 
normally used. The disk operating 
system arrests head movement at the 
track one position when formatting 
а disk or error checking as might be 
done with some forms of copy pro- 
tection. 

To insure proper seating of the 
disk, the 1571 spins the drive spindle 
every time a disk is inserted or re- 
moved. This operation is triggered by 
the write protect sensor. Of course, 
the same electronics also inform the 
DOS whenever a disk is swapped, 

The 1571 is a double sided drive. 
Two heads (which in this case are 
definitely better than one) are pro- 
vided to accommodate the storage of 
data on both sides of the floppy sur- 
face. These are situated in diametri- 
cally opposing positions so as to 
sandwich the floppy medium between 
them. These hard, highly polished, 
precision surfaces must never make 
contact lest their finish be marred. A 
mechanical interlock has been incor- 
porated into the latch mechanism for 
this very purpose. The heads will re- 
main in the open position unless a 
disk is inserted to trigger the inter- 
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Closeup of drive mechanism, which 
incorporates a brushless DC motor. 


А closeup and inside view of the 1571 
disk drives power supply. 


lock. This is true regardless of the po- 
sition of the external operating lever. 

Head cleaning, for those who shun 
the costly cleaning kits, requires a 
minimum of disassembly. Simply re- 
move the top cover to gain access to 
the heads. As can be seen from the 
photographs, the power supply and 
the main electronics board are situa- 
ted behind and below the drive me- 
chanicals, There is no need to remove 
any of these components to clean the 
heads. Do not attempt to force the up- 
per head support arm beyond its me- 
chanical stop. Movement is rather re- 
stricted as compared to the design on 
the 1541. A good-quality clean cot- 
ton swab, moistened with isopropyl 
alcohol (91%), does the job. As with 
all component disassembly, we cau- 
tion our readers to use their own good 
judgment. Opening of the disk drive 
may void the warranty. If you have 
any doubts on your ability to handle 
this work, leave it for a qualified ser- 
vice technician. 

The drive mechanism is manufac- 
tured by Newtronics/Mitsumi Elec- 
tric Co. Ltd. It incorporates a brush- 
less direct drive DC motor for spin- 
ning the disk. The motor control 
electronics are on a circuit board 
which surrounds the armature. 
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As expected, the back panel in- 
cludes a pair of serial ports to allow 
daisy chaining of peripherals, the 
main power socket, and the on/off 
switch. A significant new addition is 
a pair of miniature switches right next 
to the serial port connectors. These 
allow the selection of device numbers 
8 through 11. Interestingly enough, 
the preliminary documentation still 
talks about the cutting of internal 
jumpers to change device numbers. 

In addition to the mandatory disk 
slot, the front panel sports a twist 
lock door latch and a pair of colored 
indicating lights. For some reason 
Commodore has departed from their 
previous color scheme. In direct op- 
position to the 1541 the power on light 
is red and the drive indicator light is 
green. 


THE MANUAL 

Judging from the draft copy of the 
manual, users will be in for a pleasant 
surprise. Although it is directed to the 
reader with some knowledge of 
BASIC, the manual contains a lot 


more information than the early ed- 
itions of the 1541 book. Carefully 
written explanations with numerous 
detailed examples are sprinkled 
throughout the text. The draft manual 
is over sixty pages, with two more 
chapters yet to come. 

Numerous tidbits of information 
have been included. Many of these 
were apparently gleaned from the 
pages of the various Commodore 
publications. Commodore has even 
officially named the ignominious as- 
terisk file as a “splat” file. Splat files 
occur when a file is opened and not 
properly closed by the DOS, They list 
in the directory with an asterisk next 
to their file names. As many a user 
has woefully found out, they can foul 
up a disk if not properly treated. De- 
tails for their cure are now an offi- 
cial part of the 1571 manual. 


CONCLUSION 

The 1571 disk drive makes an ех- 
cellent companion to the C-128. The 
system provides all of the features. 
Commodore users have been looking 
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for since the introduction of the VIC 
20. Much has been done to improve 
оп the marginal performance of the 
serial bus as implemented on the 
1541. (This bus was actually a low 
cost compromise which allowed the 
С-64 to appear on the market in a 
hurry.) 

The flexibility of the 15715 oper- 
ating modes will be put to full use 
by the CP/M 3.0 Plus operating sys- 
tem. Several popular disk formats 
will be directly supported or easily 
accessed by a set of simple keyboard 
commands. In particular, the sup- 
ported formats are: 

1. Commodore Formats (ССК) 

* The existing CP/M 2.2 disk for- 
mat, which is used by a Commodore 
64 with the CP/M cartridge. Disk ca- 
pacity is limited to 136 kilobytes in 
this format. 

* A new Commodore CP/M for- 
mat which will utilize the full 360 
kilobyte capacity of a double-sided 
1571 disk. 

2. Non-Commodore Formats 
(MFM) 

% Osborne (single sided only) 

* Каурго 

% Ерзоп 

* ІВМ CP/M-86 (single- and dou- 
ble-sided disk capacities from 160 
kilobytes to 360 kilobytes) 

Additional formats are possible but 
will require special programming of 
the 1571 disk drive. In all cases data 
files may be transferred between the 
Commodore 128 and the respective 
machines. Of course, you cannot run 
IBM programs since CP/M 3.0 runs 
оп an eight bit 2-80 microprocessor 
while CP/M-86 runs on a 16 bit 8088 
microprocessor. 

The 1571 is only the first step in 
high quality peripheral support for 
the C-128, Work is already well under 
way on the 1572, a dual drive version 
of the 1571. It also would not surprise 
us to see a Commodore 314 inch hard 
disk with a 10 to 20 megabyte capa- 
city for under $500 in the near fu- 
ture. This combination of features 
with low cost is sure to encourage 
many existing Commodore users into 
the upgrade path. We also expect to 
welcome many new users into the 


| Commodore fold. O 


Touring 


the 


Commodore 128 Keyboard 


Last month we presented an inside view of the C-198. 
Starting this month we will take a closeup look at 
some of the specific features which make this new machine a 
significant improvement over its predecessors. 


he ergonomic consid- 

erations in the design 

of the C-128 keyboard 

are readily apparent. 

The keyboard's low pro- 
file should help reduce fatigue by al- 
lowing the user's wrists to rest com- 
fortably on the table, Touch typists 
will welcome the raised dimples on 
the F and J home keys, as well as on 
the 5 key of the numeric keypad. The 
2% inch wide clear space between 
the keys and the cooling vents is sure 
to become a haven for all sorts of key- 
board overlays. All in all, there are 
92 keys to bewilder the novice. 

Observant readers will also note 
that the main part of the keyboard is 
nearly an exact duplicate of the Com- 
modore 645. The only notable change 
is the relocation of the function keys 
to a horizontal configuration at the 
right of the top row. Present 64 own- 
ers should have very little trouble be- 
coming comfortable with the С-128 
layout. 

Physical attributes aside, there is 
a lot more to the C-128 keyboard than 
meets the eye. Hidden beneath the 
tactile array, under control of the new 
operating system, lurks a multitude 
of functions designed to ease the us- 
ег sojourn into the realm of com- 
puting with the C-128. 

If you have been using a VIC 20 
or a C-64, you will already be famil- 
iar with a good portion of the key- 
board’s capabilities. The full screen 
editor functions in the same way as 
these machines. The INST/DEL key 
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Above the main keyboard of the 128 
are (top) Esc, Tab, Alt, Caps Lock, 
(middle) Help, Line Feed, 40/80, No 
Scroll, and (bottom) cursor keys. 


still eats characters to the left, or 
when shifted opens spaces to the right. 
The quote and insert modes still op- 
erate in the same fashion which non- 
Commodorists find so thoroughly be- 
fuddling. The CLR/HOME key still 
moves the cursor to the top left cor- 
ner of the screen, or when shifted 
clears the entire screen. As with the 


C-64, text can be displayed in 16 col- 
ors, as the labels on the 1 to 8 keys 
indicate. These colors are still ac- 
cessed by holding down the 
CONTROL key or the Commodore 
logo key. Unlike the C-64, the labels 
оп the number keys now indicate both 


| colors which are available for that key, 


As before, text display can be re- 
versed with a CONTROL/9 and ге- 
stored with a CONTROL/O. 

The real power of the C-128 key- 
board is in the new editing and con- 
trol features which have been incor- 
porated into the BASIC 7.0 operating 
system. For convenience, we have 
classified these features into three 
categories: the function keys, the 
ESCape key sequences, and the 
CONTROL key sequences. Let's take 
a close look at each in turn. 


THE FUNCTION KEYS 

On power up, eight useful BASIC 
phrases are preassigned to the C-128 
function keys. These phrases can be 
viewed by executing BASIC 70% new 
KEY command without any parame- 
ters. The following list should appear 
on the display. 


KEY 1,*GRAPHIC” 


KEY LOAD"--CHRS(34) 
KEY 3“DIRECTORY”+CHR$(13) 
KEY 4,SCNCLR"+CHRS(13) 


KEY 57DSAVE'* CHR$(34) 
KEY 6;RUN"+CHRS(13) 

KEY 7;LIST- CHRS(3) 

KEY 8*MONITOR"+CHRS(13) 
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Getting this list on the screen 
serves two purposes. First, it reminds 
you what is programmed into the 
keys. Secondly, it gives you the op- 
portunity to easily change the con- 
tents in any of the eight function keys. 
For example, if you are not planning 
to do any graphic programming, you 
may want to redefine fl. Just cursor 
up to the “3” in KEY 3 and change 
it to a “1”. Hit RETURN and the di- 
rectory will now be displayed by fl. 
Enter 


KEY 3,"OPEN 4,4:CMD4"+CHR$ 
(13) 


followed by 


KEY 4,"PRINT#4:CLOSE4"+CHR$ 
аз) 


and you will be all set for easy print- 
er listing. Note how the numbers 1 
through 8 which immediately follow 
the KEY statement refer only to the 
function keys. No other keys are af- 
fected by this command. 

There is one possible disadvantage 
to having the function keys prepro- 
grammed. BASIC programs written 
for the C-64 do not expect to find a 
lengthy message when examining the 
function keys. This can be easily 
remedied by reprogramming all eight 
keys with the following: 


FOR 1-1 TO 8:KEY I,CHR$(I+1 
32) :NEXT 


This will place the traditional (for 
VIC 20 and C-64 users) CHR$ codes 
into the function keys. You will prob- 
ably want to do this in every program. 
which uses the function keys to соп- 
trol program operation. 


ESCape KEY SEQUENCES 
The C-128 has the powerful full 
screen editor that a veteran Commo- 
dore user will not feel at home with- 
out. This editor has been greatly en- 
hanced with the addition of a series 
of ESCape key commands. The result 
is that the С-128 screen editor ap- 
proaches the capabilities of a full 
blown text editor. Writing and edit- 
ing BASIC programs has never been 
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С-128 KEYBOARD 
DISTINCTIONS 


Тһе C-128 sports a numeric keypad which 
should greatly speed up data entry in numer- 
ically intensive applications, most notably 
spreadsheets. These keys, as well as the dis- 
crete cursor keys, duplicate existing keys on 
the main keyboard. There are applications 
where a numeric keypad may be of little or 
no interest. Instead, various program control 
functions could be assigned to the new keys. 

For such applications it would be desirable 
to distinguish the keypad from the number 
keys on the main keyboard. The traditional 
ASCII code check following a GET will not 
work, since the same ASCII code will be re- 
turned by the corresponding keys, For ex- 
ample, pressing a "I" on the keyboard or key- 
pad returns an ASCII value of 49. Fortun- 
ately, there is a simple way for BASIC to dis- 
tinguish which physical key has been pressed. 

Locations 211 and 212 are used by the op- 
erating system for this purpose. The values 
stored here every sixtieth of a second are 
unique for every key. At address 21 the 
SHIFT, Commodore logo, and CONTROL 
keys are identified. These keys will set bits 
zero, one, and two respectively at this ad- 
dress. If you PRINT PEEK(21I) a zero will 
normally be returned. The SHIFT key 
changes this to a опе. The logo key returns 
a two and the CONTROL key results in a 
four. These values are additive, so holding 
all three keys down gives a seven. 

‘The remainder of the keys, 


easier. 

There are 21 ESCape key sequen- 
ces implemented on the C-128, almost 
one for every letter of the alphabet. 
These sequences are so useful that 
you will probably want to become fa- 
miliar with them in a hurry. The best 
way to become acquainted with them 
is just to use them while writing a 
program. Afterwards, if you really 
want to see how dependent you have 
become on the new features, just GO 
64 and enter the same program. Be 
forewarned, you may be in for a frus- 


ception of the RUN/STOP, RESTORE, ALT, 
and 40/80 keys, place a unique value in 
address 212 when pressed. On the C-128 this 
location contains an 88 when no key is 
pressed. Press any other valid key and a val- 
че between 0 and 87 will appear, The table 
above shows the values generated in location 
212 by the keys on the C-128 keyboard, The 
following program can be used to reproduce 
these results: 


10 DO:GETKEY АҘ 
20 PRINT ASC(A$) ;PEEK(212) 
30 LOOP 


The same program in BASIC 2.0 on the 
C-64 or VIC 20 would be: 


"ТНЕМ10 
EK (203) 


10 СЕТ А:1ҒА5-! 
20 PRINT ASC(A$); 
30 GOTO 19 


Note the change in the PEEKed address, 
‘The operating systems on all Commodore 
machines have many similarities. Addresses 
203 and 653 on the VIC 20 and the C-64 
аге equivalent to 212 and 211 on the C-128. 
‘The values in 203 for the C-64 will be the 
same for the corresponding keys in 212 on 
the C-128. However, the results on the VIC 
20 are quite different, The shift flag values 
are the same for all three computers, You 
may want to use the KEY statement on the 
С-128 to clear the function keys before 
RUNning this program, or strange things 
may result. 


trating experience. 

Each of the ESCape sequence 
commands are executed by pressing 
and releasing the ESC key followed 
by the appropriate letter key. Do not 
hold down both keys at once. For ex- 
ample, pressing the ESC key fol- 
lowed by the “A” key places the edi- 
tor in automatic insert mode. Any- 
thing you type will automatically 
push the remainder of the display 
ahead of it. This is a tremendous con- 
venience for rearranging text between 
quotes or for adding temporary com- 
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mands during program debugging. It 
is especially useful when you keep in 
mind that the C-128 permits entry of 
up to 160 characters (four 40 column 
lines or two 80 column lines) into a 
BASIC program line. Note that this 
is not the same as opening a gap by 
using the INST/DEL key. All of the 
keyboard control functions, such as 
the cursor keys and the CLR/HOME 
key as well as the INST/DEL key, re- 
tain their usual functions. In other 
words, insert mode does not place the 
screen editor into quote mode. 
The screen parser has been en- 
hanced in other ways as well. It will 
now link up to a full screen of text 
at one time, By comparison, the C-64 
is limited to only two screen lines and 
the VIC 20 handles four screen lines. 
However, trying to enter more than 
160 screen characters into a single 
BASIC program line results in a 
STRING TOO LONG ERROR. By 
comparison, exceeding the С-645 two 
line limit simply resets the screen 
linker to the next two lines, This full 
screen linking on the С-128 must be 
kept in mind when using the ESCape 
functions. The erase to end of line 
command (ESC Q) will remove all 
text from the current cursor position 
to the end of screen text or the next 
carriage return, whichever comes 
first. The erase to beginning of line 
command (ESC J) works analogously 
but in the opposite direction, The 
same is true of the move to end of 
line (ESC K) and move to beginning 
of line (ESC J). On the other hand, 
the insert a line (ESC I) command 
is a screen line function. Use of this 
command within a BASIC line opens 
up one screen line while maintaining 
the line links for BASIC editing. 
All of these functions can also be 
obtained under program control. The 
following sample program illustrates 
some of the effects which can be eas- 
ily obtained by using the ESCape se- 
quences in PRINT statements: 


10 PRINT CHR$(147):REM CLE 
AR SCREEN 

20 CHAR,14,11,"0FF THE TOP 
" 


30 CHAR,12,12,"DOWN THE BO 
TTOM" 


40 CHAR,0,12 

50 FOR I-0TO12 

60 PRINT CHR$(27)"I"CHR$(2 
7)"I";:REM INSERT TWO LINE 


5 

70 PRINT CHR$(27)"V"; :REM 
MOVE SCREEN UP ONE LINE 
80 NEXT 


Note that CHRS(27) is the ESCape 
key. Several keystrokes can be saved 
by programming PRINT*<reverse 
[> X" where the reversed left brac- 
ket is obtained by simultaneously 
pressing CONTROL, SHIFT, and 
the colon keys while in quote mode. 
The reverse left bracket between 
quotes in a BASIC statement will 
generate a CHR$(27). This is a use- 
ful trick to keep in mind for sending 
escape codes to a printer with a 
PRINT statement. Note that the 
ESCape key commands only work 
when sent to the screen. If you want 
to see how the program works try 
adding the following lines: 


65 SLEEP 1 
75 SLEEP 1 


The SLEEP command pauses pro- 
gram execution for the specified 
number of seconds, Also note the use 
of the CHAR command to conveni- 
ently position the cursor on the 
screen. The CHAR command is real- 
ly meant to display text on a graphic 
screen. In this context it is being used 
as a PRINT AT command. 

One of the more interesting capa- 
bilities of BASIC 7.0 is the ability to 
define windows. Once a window is 
set, all subsequent screen output is 
restricted to this area. Try the follow- 
ing program: 


10 PRINT CHR$(147) 

20 CHAR, 10, 10, CHR$(27) "T" 
30 CHAR, 10, 10, CHR$(27)"B" 
40 LIST 


This will define a screen window 
whose upper left hand corner is at the 
tenth row and tenth column position. 
The lower right hand corner will be 
at twentieth row and column position. 
Note the use of the CHAR statement 
to position the cursor as well as to 
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FREE?DISKETTES 


set the window coordinates. Also 
note the coordinates in the CHAR 
statement of line 30. These are cor- 
rect as shown, The CHAR statement 
references its coordinates from the 
upper left hand corner of the current- 
ly active screen window. Since this 
has been already defined by line 20, 
we have to take this into considera- 
tion for line 30. 

To help keep track of the current 
screen window, BASIC 70 includes 
the RWINDOW function, The fol- 
lowing sequence of commands: 


R=RWINDOW(9) 
C=RWINDOW(1) 


will place the number of rows and 
columns into the variables R and C. 

While entering a BASIC program, 
the window commands can be used 
to partition the screen into a message 
area and a text area, Just write your- 
self some notes at the top of the 
screen and set the screen window, 
Continue to enter BASIC program 
lines. All screen control functions, 
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such as clear or home, will not af- 
fect the message area. To cancel a 


window just hit the HOME key twice. 


Under program control, a window 
can be used to eliminate the need to 
continuously rePRINT a screen lay- 
ош. The message area in the window 
can be manipulated as desired with- 
out affecting the remainder of the 
screen. Note that only one window 
can be active at any time. 

A word about the scroll commands. 
Turning scrolling off, with an ESC 
M, causes the cursor to wrap from 
the bottom of the screen to the top 
of the screen. There is also a NO 
SCROLL key which according to the 
preliminary documentation is sup- 
posed to perform the same function. 
This is not so. We found this key to 
work as a pause as described below. 


CONTROL KEY SEQUENCE: 
Turn on your C-128, hold down the 
CONTROL key, and press G. Sur- 
prise! If you had the volume turned 
up on your television or monitor, you 


were rewarded with a pleasant bell 
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tone. This may not seem like much, 
but if I had a nickel for every time 
someone asked me for a simple way 
to make that noise on a C-64, I would 
have retired a wealthy man some time 
ago. Commodore has finally imple- 
mented the traditional teletype “bell” 
in (ће С-128 console. The same tone 
can be produced with a PRINT 
CHRS(7). 

In general the CONTROL func- 
tions are not unique to the С-128. 
Most of them will be familiar to pre- 
sent users of the VIC 20 or the С-64. 
The С-128 does have some significant 
changes and additions to this key- 
stroke sequence. Note that unlike the 
ESCape key sequence you have to 
hold down the CONTROL key while 
pressing the second k Also, 
CONTROL key commands can be 
placed into PRINT statements while 
the screen editor is in quote mode. 
In contrast, pressing the ESCape key 
while in quote mode will activate the 
ESCape key sequence. 

As mentioned above, a CONTROL 
left bracket will send an ESCape 
character. Try it. If the editor is not 
in quote mode, this key sequence will 
initiate the ESCape mode. This lit- 
| tle-known key sequence will also 
generate a CHRS(27) on the C-64 and 
the VIC 20. Of course, this has no 
direct effect on these two machines. 
| The C-128 has a TAB key on its 
keyboard right next to the ESCape 
key. Pressing this key generates a 
CHRS(9), which moves the cursor to 
the next tab stop on the screen. The 
CONTROL I key combination will 
have the same effect. On the VIC 20 
or the C-64, a CHRS(9) will enable 
the character set switch capability. On 
| the C-128 this has been moved to 

CONTROL К ( СНЕ$() ). The dis- 
able-character-set-change command 
has also been changed to CONTROL 
L ( CHR$(I2) ), although the old 
CONTROL H ( CHRS(8) ) has no 
unique С-128 function. Programmers 
accustomed to these codes on the 
VIC 20 or C-64 should take note. 

Getting back to the tab functions, 
the CONTROL X ( CHR$(24) ) will 
set or clear a tab at the current cur- 
sor position. However, to clear all 
tabs you have to use the ESCape 7. 


TABLE OF ESCAPE KEY COMMANDS 


@ Erase screen from cursor to end of 
window 
Automatic insert mode 
Set bottom right corner of window at 
cursor 
С Cancel automatic insert mode 
D Delete current linked line 
I Inserta screen line, preserve line links 
J Move to the beginning of current 
linked line 
К Move to the end of current linked line 
L Turn on scrolling 
Turn off scrolling 
N Un-teverse 80 column display 
O Cancel insert, quote, reverse, 
flash modes 


ш> 


Р Erase from the beginning of current 
ed line to the cursor 
Q Erase from cursor to the end of cur 
rent linked line 
R Reverse 80 column display 
T Set top left corner of window at cur 


sor position 

У Scroll screen up one line 

W Scroll screen down one line 

X Toggle between 40 and 80 column 
display 

Y Restore default TAB stops at every 
eighth character position 


сі ESCape mode. (Any nonim. 
med character will also cancel 
ESCape mode.) 


sequence, The best way to learn 
about the tab stops 
them. Note that a TAB command 
does not wrap the cursor to the fol- 
lowing screen line. Tabbing to the end 
of a line simply leaves the cursor at 
that position. 

Another change is worth noting. 
The CONTROL J ( CHR$(10) ) code 
generates a linefeed without a car- 
riage return. On the C-64 and VIC 
20 both a linefeed and carriage re- 
turn will be produced. 

The remaining unique С-128 
CONTROL codes are associated 
with the 80 column display. 
CONTROL B ( CHR$(2) ) turns un- 
derline on. However, there is no cor- 
responding CONTROL sequence to 
turn it off. You will have to PRINT. 
CHRS(130) to cancel underline mode. 
The 80 column characters can be set 
to flash by using a CONTROL 0 
( CHRS(I5) ). As with underline 
mode, there is no CONTROL se- 
quence to turn flash off. Use PRINT 
CHRS(143). 

Continued on page 74 
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PROGRAMMING CHALLENGES 
By Dale Rupert 


ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 


Commodares, clo Ahoy! 
PO. Box 723 
Bethel, CT 06801 


We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the name and number of the problem you 
are solving. Also show sample runs if possible, where 
appropriate. Be sure to tell what makes your solutions 
unique or interesting, if they are. Programs on diskettes 
are welcome, but they must be accompanied by listings. 
You must enclose a stamped, self-addressed envelope 
you want any of your materials returned. Solutions re- 
ceived by the middle of the month shown on the maga- 
zine cover are most likely to be discussed, but you may 
send solutions and comments any time. Your original pro- 
gramming problems, suggestions, and ideas are equally 
welcome. The best ones will become Commodares! 


Problem #21: Geometry Fun 

This challenge was suggested by Phil MacLean (Co- 
lumbus, OH). The user inputs three ordered pairs of num- 
bers (х,у values in Cartesian coordinates), and the com- 
puter tells whether or not they represent collinear points. 
The three points are collinear if they lie on the same line. 
If they are, the computer tells which lies between the 
other two on the line. Any values of x and y are allowed. 
Better dust off the geometry books! 


Problem #21-2: Logical Fun 
Michael P. Marron (Stony Brook, NY) submitted this 
Соттодаге. Four students were discussing their upcom- 
ing report card marks. They made the following state- 
ments: 
AL: (I) Well all get different marks. 
(2)If I get a 95, then Connie will get a 65. 
BETTY: (3)1f Connie gets a 75, then Al will get a 65. 
(4) AL will get a better grade than Dan. 
CONNIE: (5)If Betty doesn't get a 95, then Al will get a 75. 
(6) If I get an 85, then Dan won't get a 65. 
DAN: (7)If Connie doesn't get a 95, then I'll get an 85. 
(8) If Betty doesn't get an 85, then I won't either. 
Your task is to write a program which (A) determines 
the mark for each student assuming the above statements 
are all true, and (B) finds all possible solutions assum- 
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ing statement number (1) is false. For extra credit, de- 
termine how many of the original eight conditions can 
be eliminated and still have only one solution. 


Problem #21-3: Decimal Columns 

E. Harvey Hammett (Houston, TX) asked for a short 
method of lining up decimal points when numbers are 
printed in a column. Your routine should print on the 
screen, but it should also be usable on a printer. That 
means you are not allowed to use any cursor movement 
keys. If the user enters 12.5, 134.56, 0026, 23, and 1.234, 
the computer prints out: 


Problem #21-4: REM Remover 

Jim Speers (Niles, MI) has sent a five line subprogram 
which may be added to the end of another program be- 
ginning at line 55000. When the user types GOTO 55000, 
this subprogram deletes all lines beginning with REM 
ora colon. Jim uses this subprogram in debugging. Any 
trace statements to print variables or to STOP the pro- 
gram may be preceded by a colon. They will be execut- 
able, but when debugging is done, they may be removed 
simply by typing GOTO 55000. Can you come up with 
such a program? 


This month we have readers’ solutions to the May 1985 
Commodares. Problem 8171: Decimalizing Dates brought 
à grand total of three responses. The problem is not real- 
ly very difficult, and it is a “real world” problem. Busi- 
ness programs typically use a decimal form of a date rath- 
er than a "month, day, year" format for internal calcula- 
tions. The solution from Jim Speers (Niles, MI) is listed 
below. Jim claims that mid-1985 should be listed as 1984.5 
since he considers the first year as 0. Midway into the 
first year should then be 0.5. We'll leave it up to you to 
modify the program if you want mid-1985 to be shown 
as 1985.5. 


1 REM 
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2 REM PROBLEM #17-1: DECIMALIZING DATES 
3 REM SOLUTION BY JIM SPEERS 

4 REM 

100 DIMD(12),1$(3):FORI=1T012:READD(I):N 
EXT 


110 DATAO,31,59,90,120,151,181,212,243,2 
73,304,334 

120 PRINT"[CLEAR][DOWN]ENTER DATA (E.G. 
10/5/1985)" ; : INPUTA$:K=1: FORT=1TOLEN(A$) 
130 Z$-MID$(AS,I,1):IFZ$-" /VORZS-"- "THEN 
K=K+1:GOTO150 

140 I$(K)-I$(K)42$ 

150 NEXT:M=VAL(1$(1)) :D=VAL(I$(2)) :Y=VAL 
(1$(3)):LY=0 

160 IFY/4=INT(Y¥/4)ANDY/400¢>INT(Y¥/400)TH 
ENLY=1 

170 DT=Y-1+( (D(M)+D-LY*(A>2)-.5)/(365+LY 
)) :DT=INT(DT*109004.5)/10000 

180 PRINT:PRINT"THE DECIMALIZED DATE FOR 
"A$" IS":PRINT:PRINTDT 


Jim's program calculates the decimalized date as of 
twelve noon, hence the —0.5 in line 70. Each hour is 
0.000114 part of a year. Line 160 tests for leap years. The 
DATA statement stores the number of cumulative days 
in months prior to the given date. David Alan Wright 
(New Britain, CT) and James Borden (Carlisle, PAY! also 


KIWISOFT PROGRAMS 


Mainframe- 


* Paint it with "PAINTPIC" 
16 colors, 160x200 screen, CAD 
* Pret it with "PRINTPIC" 
Compatible with most printers 
* Do both with "CADPIC: 
Combines "PAINTPIC" and "PRINTPIC 
* More pictures with PICTUREDISKS 
Cors and planes. $29.95 ea. 
* Seo our COMPUTER ART PRINTS - 20124” 
"Room". "Storm", "Holy Lane" (3 tor $25) $8.95 ea. 


Works with Epson JX-80 апа Okimate 10 Color Printers 


SEND FOR QUR FREE BROCHURE 
Dealer Enquiries Welco 


Programs on diskette from 


KJUSISOFT. 


€ PROGRAMS Ф 


Асе Software, Р.О. Box 9332, Columbus, MS 39705 
Рһопе: 601-328-9491 


Reader Service No. 121 
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sent solutions. Both Jim's and David's programs allow 
the user to enter dates in mm/dd/yr or mm-dd-yr format. 

Several readers tackled Problem 17-2: Printer Sentin- 
el. The solution from Brian J. Wilcox (Coldwater, OH) 
is listed. Since his program is similar in approach to many 
others, I concluded that it must work —on some printers 
at least. It doesn't work on mine. A modified version 
of Brian's program is also shown, which works on my 
Epson MX-80 printer with a serial-to-parallel converter. 


1 REM 

2 REM SOLUTION TO COMMODARE #17-2 

3 REM PRINTER SENTINEL 

4 REM SUGGESTED BY BRIAN J WILCOX 

5 REM 

10 PRINT CHR$(147) 

20 GOSUB 100 

30 PRINT"THE PRINTER IS ON" 

40 END 

100 OPEN4,4:PRINT#4:CLOSE4:IF NOT(ST AND 
-128) THEN RETURN 

110 PRINT"[HOME]PRINTER IS NOT ON LINE" 
:GOTO 100 


l REM 
2 REM SOLUTION TO COMMODARE #17-2 


3 REM PRINTER SENTINEL 
4 REM MODIFIED 
5 REM 


10 PRINT CHR$(147) 

20 GOSUB 100 

30 PRINT"THE PRINTER IS ON" 

40 END 

100 PRINT"[HOME]THE PRINTER IS NOT ОМ":0 
PEN4,4: PRINT#4 

105 PRINTÉA: IF NOT(ST AND -128) THEN 
PRINT — "[HOME] PER 
ETURN 

110 CLOSE 4: РВІМТ"[НОМЕЈРКІМТЕК IS NOT 0 
N LINE":GOTO 100 


Even when my printer is off, the computer can sent 
it one message without the STatus variable indicating any 
problem. If the program sends a second message, the 
computer sits and waits forever at the PRINT/ statement. 
Consequently I couldn't display a "Printer Off" message 
if the printer was off. Instead I had to display the “Print- 
er Is Not On" message before writing to the printer, and 
if the printer was on, the message was quickly erased. 
If the printer is off, the message remains on the screen 
until the printer is turned on (or online). If neither of 
these routines works for your printer, you might compare 
ST with 0 instead of —128. Refer to the STatus descrip- 
tion in the Programmers Reference Manual. 

Other solutions to this problem came from Ron Giedd 
(Sioux Falls, SD), Clarice A. Baker (Kamloops, BC), 
Jim Speers (Niles, MI), James E. Borden (Carlisle, РА), 
and Lonnie Welch (Independence, MO). 
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BONUS GIFT WITH АМҮ SOFTWARE ORDER -- АМ EXCELLENT PUBLIC 
DOMAIN VERSION OF AN ARCADE HIT GAME ON ITS OWN DISK. 


ARCADE 

Archon $ 2895 
‘Archon Il Adept . 2895 
Beachead Il 2595 
Bruce Lee 2495 
Castles of Dr Creep 2095 
Championship Loderunner 2495 
Computer Quarterback 2895 
F15 Strike Eagle 2395 
Flight Simulator I 3595 
Impossible Mission 2395 
International Soccer 1995 
Kennedy Approach 2395 
Micro League Baseball 2895 
Statistics Disk (1984) 13.95 
Mig Alley Ace 2395 
Night Mission Pinball 2195 
‘One On Оле 2895 
Pitstop It 27.95 
Questron 2795 
Raid Over Moscow 2795 
Solo Flight 2395 
Strip Рок 2095 
Tourname 1795 
Zaxxon 2495 
ADVENTURE AND MIND GAMES 
Amazon 2395 
Adventure Construction Set 3795 
Adventure Master 2795 
Below the Root 1895 
Bridge 40 1795 
Cutthroats. 2895 
Dragonworld 2395 
Fahrenheit 451 2395 
Felony 2395 
Hitchhikers Guide 2895 
Infidel 2595 
Monty Plays Scrabble 27.95 
Murder By The Dozen 23.95 
Party Quiz 49.95 
Party Quiz Refills 1795 
Rendevous With Rama 2395 
Robots of Dawn 2795 
Sargon lil 34.95 
Seven Cities of Gold 2895 
Starcross 26.95 
Suspended 26.95 
Swiss Family Robinson 18.95 
Trivia Fever 27.95 
Ultima Hi 3995 
Witness 2595 


EDUCATIONAL PROGRAMS 
Agent USA 

Cave of the Word Wizard. 

CBS Success w/Math Series ва 
Evelyn Wood's Dynamic Reader 
Harcourt Brace Computer SAT 
Kidwriter 19.95 Memory Manor 
Muppet Learning Keys 

Spell It 

Spellicopter 

Story Machine 

Word Attack 


WORD PROC.-DATE BASES- 
SPREADSHEETS 
Batteries Included Home Organizers 
Checkbook 
Electronic Address Book 
Home Inventory 
Mail List 
Photos/Slides/Movies 
Recipes 
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Batteries Included Home Pak 
Calc Result Advanced 

Calc Result Easy 

Complete Personal Accountant 
Consultant (Delphi's Oracle] 
Cut and Paste 

Financial Cookbook 

Fleet Systems 

Magic Desk 1 

Mirage Data Base Manager 

Mirage Word Processor 

Net Worth 

Paperclip w/Spelipack 

PFS File 

Practi Calc 

Pract Fi 

Superbase 64 

Total Text 26 

Total Mailing List & Labels 


GRAPHICS 
Animation Station 
Doodle 

Future House Light Pen. 
Moviemaker 

Pen & Peripheral Vision 
Print Shop 


MISCELLANEOUS 

Bulk Discs - Quantities of 10 
Compuserve Starter Kit 
Fast Load 

Maxell Disks - Box of 10 
Pro-Tech Vinyl Covers 
Simon's Basic 


Tac II Joystick 
Vidtex 
VIP Terminal 


FLOPPY 
HOUSE 


3495 
6995 
3595 
5495 
6895 
3695 
3895 
5695 
3595 
6795 
5695 
5595 
8295 
5595 
3495 
3495 
5295 
3195 
1695 


6395 
2895 
2395 
3795 
4195 
3195 


1295 
2195 
2795 
1695 

535 
3895 

995 
2195 
2995 


16 S. Chestnut Street, Box 308, Palmyra, PA 170; 
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HARDWARE AND PERIPHERALS 


B.. 80 Column Display 13495 
Cardco +G Interface 69.95 
Commodore 801 Ribbons 795 
Commodore Hardware CALL 
indux Disk Drive 27900 
Okinate 10 w/Plug and Print 199.00 
Okinate 10 Bik & Wht Ribbon .... 475 
Okinate 10 Color Ribbon 525 
Panasonic KXP1091 Printer ... 27900 
Prowriter 7500 Printer 22900 
Prowriter 8510 AP Printer 299,00 
Prowriter 8510 Ribbons 5.95 
LEROY'S CHEATSHEETS $2.95 

Basic Paperclip 

Blanks (3) Practicalc 

Calc Result Adv. Printers 

Calc Result Easy Epson RXBO. 

Сота! (14) Gemini 10X 

The Consultant 1525/80 

Doodie Quick Brown Fox 

Easy Script Simon's Basic 

Speedscript 


Sprites Only 
Superbase 64 


Logo Sheet 1 Terminals. 
Logo Sheet 2 Smart 64 
The Manager Vidtex 
Multiplan УР 


Word Pro 3/Plus 


SPECIALS 
Сағасо Numeric Keypad 
32.95 
Compuserve Starter 


Kit/Vidtex 
39.95 
S-Games 
(Formerly Hes Games) 
11.95 


TOLL FREE 
1-800-633-8699 


In Pa, Call 
A.C. 717 838-8632 


ORDERING & TERMS 


* VISA & M.C. accepted with no 
charge in the continental U.S.A 

* $2.50 shipping charge on orders 
under $100.00 

* Pa. Residents add 6% Sales Tax 
* Prices subject to change w/o 
notice 

* 48 hour shipping for cashier 
check - Money order - charge 
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The most compact solution to Problem #17-3: MIDS 
Statement came from Ken Karow (Chicago, IL). Ken in- 
cluded some sample strings for testing the routine. The 
value of N tells how many characters of Ү are used to 
replace characters of X$ starting at position S of X$. This 
can be a very useful routine. 


1 REM 
2 REM SOLUTION TO COMMODARE #17-3 


3 REM MID$ STATEMENT 
4 REM SUBMITTED BY KEN KAROW 
5 REM 


100 Y$="ABCD";S=4:N=3 

110 X$2"1234567" : GOSUB200 : PRINT S,N, 
X$:INPUT"START, NUMBER";S,N:GOTO 110 
200 IF №0 OR N>LEN(Y$) THEN N-LEN(Y$) 
210 X$=LEFT$(LEFT$(X$,S-1)+LEFT$(Y$,N)+M 
ID$(X$,S4N),LEN(X$)) : RETURN 


The most popular Commodare was Problem 817-4: 
Number Speller. Solutions ranged from the reasonably 
short one by Rob Lackey (Albuquerque, NM) listed below 
to multipage programs. 


l REM 

2 REM SOLUTION TO COMMODARE £17-4 
3 REM NUMBER SPELLER 

4 REM SUBMITTED BY ROB LACKEY 


Experience 


THE JOY 
OF TEX 


$12.95 
LIFETIME 
MEMBERSHIP 


Connect with 
the leading 
UNCENSORED 
national 
computer 
communications 
network. 


dults сап 
experience 
live" interactive 

chatting, 
electronic mail and | 
many other full- 
service videotex 
features. 


For а FREE 
brochure call 
(212) 972-4719 ог 
write: | 


CVC ONLINE, 
dept. 512 

801 Second Ave., 
N.Y., N.Y. 10017 


5 REM 
DIM D$(30):FORI-1 TO 30:READ D$(I):NE 


INPUT"[CLEAR]ENTER NUMBER (<10000)";М 
A-LEN(STR$(N))-1:0N А GOTO 90,60,50,4 


40 N$=D$CINT(N/1000)+1)+" "+D$(30)+" 
50 V=(INT(19*(N/1900-INT(N/1000)))+1):IF 
V»lTHEN N$=N$+D$(V)+" "+D$(29)+" " 

60 T-N-100*INT(N/100):IF T>19 THEN 80 

79 N$=N$+D$(T+1):GOTO 100 

80 N$=N$+D$(INT(T/10)+19)+" " 

90 N$=N$+D$(N-LO*INT(N/10)+1) 


100 PRINT N$:END 

110 DATA "", ONE, TWO, THREE, FOUR, FIVE, SIX 
120 DATA SEVEN, EIGHT, NINE, TEN, ELEVEN 
130 DATA TWELVE, THIRTEEN , FOUR] 

140 DATA FIFTEEN, SIXT! 

150 DATA EIGHTEEN, NINE 

160 DATA THIRTY, FORTY, FIFTY ,SIXTY 

170 DATA SEVENTY, EIGHTY , NINETY , HUNDRED 
180 DATA THOUSAND 


Rob's program handles numbers up to 9999, Other solu- 
tions went up to billions and beyond without much addi- 
tional coding. Perhaps you can modify Rob's program 
to handle even larger numbers. This program might be 
useful for writing checks. I have used this type of pro- 
gram with a speech synthesizer. The speech synthesizer 
pronounces words which are sent to it in PRINT state- 
ments, so multidigit numbers must first be converted into 
text strings to be spoken properly. 

Solutions to these last two problems came from the 
following readers not mentioned earlier: 
Mac Reiter (Mustang, OK) 
M.B. Lanphear (Cheyenne, WY) 


Thomson Fung (San Diego, CA) 
Paul DeLuca (Bradford, MA) 


Steve Werkman (Perrysburg, OH) 
William Manganaro (Ctr. Moriches, NY) 
ат Binder (Northville, MI) 
Jerry Anderton (Florence, AL) 

Ed Taylor (Waukesha, WI) Tony Herrington (Jeffersonville, IN) 
Carlton Burton (Easton, TX) Sheldon C. Wotring (Palmerton, PA) 
R.R. Goings (Washi IL) Michael J. Strawn (Warren, MI) 
Darin Jett (Pa Paul A. Dobransky (Fombell, PA) 
Crile Carvey (Salinas, СА) Richard Oberle (Columbus, OH) 
Clay R. Reed (Edwards, CA) Nancy Balfour (Honolulu, HI) 


Special thanks to Ricardo Chan from the Republic of 
Panama and to Daniel R. Propst from Caracas, Venezu- 
ela for their letters and programs. It is ing to see 
how far-reaching Commodore computers and Ahoy! mag- 
azine are. 

One final note. Lonnie Welch (Independence, MO) 
gave one example of a mandatory space in BASIC. This 
statement using the logical OR of variables F and Q re- 
sults in a Syntax Error. Do you see why? 


10 F=0:Q=1:PRINTFORQ 


Have you come across any other situations where BASIC 
requires a space? If so, let us know. This month's prob- 
lems should keep you busy for a while. See you next 
month. O 
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AUTO-GEN 


Automated Generation of DATA Statements on the C-64 


ncorporating machine language routines into 
BASIC programs is often used to increase pro- 
gram execution speed. Sometimes the machine 
language is a separate program called and loaded 
by the main BASIC program. This requires two or 
more programs always to be on the disk, and making 
duplicates can become a chore. A common alternative 
is to store the machine language program as a series of 
DATA statements. This is a tedious task if these state- 
ments are typed in by hand. While the routine is under de- 
velopment, or should the need to modify it later arise, one 
simple change could necessitate retyping the entire sequence 
of DATA statements. Some form of automation is in order 
here, and the Auto-Gen utility program is my solution. 


WHAT IT DOES 

Once a machine language program is in memory, usual- 
ly from the output of an assembler, just load and run 
Auto-Gen and the DATA statements will be automatical- 
ly generated and written to disk for you. The program 
prompts you for the addresses of the first and last mem- 
ory locations to be saved. These may be entered in deci- 
mal or, if preceded with a $ (dollar sign), in hexadecimal. 
Next you are asked for the starting BASIC line number. 
(Be sure not to use the same line numbers that are used 
by the main portion of the program under development.) 
You are then asked for the number of data items desired 
per line, and finally the name of the output file you want 
to create. 

While the program is running, it displays the line num- 
ber being generated to inform you of its progress. 


HOW IT WORKS 

A quick review of how a line of a BASIC program is 
stored in the computer will help us understand the task 
to be accomplished, The normal starting location for the 
С-64 is 2049 (50801). The byte here plus the following 
one make up a link or pointer to the beginning of the 
next line of the program. This link is the “low byte first, 
high byte second" format typical of 6502 machine lan- 
guage. This address can be converted to decimal by mul- 
tiplying the second, or high byte, by 256 and then add- 
ing the first, or low byte, to the product. Conversely, if 
we have the decimal value we can obtain the two bytes 
by dividing by 256. The integer quotient is the high byte, 
and the remainder is the low byte. Our formula will be 
HB=INT(NL/256): LB=NL—(INT(NL/256) ), where 
HB is the high byte, LB is the low byte, and NL is the 
address of the start of the next line. 
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The next two locations hold the number of the current 
program line. Again, the number is stored in low byte- 
high byte format and the same formula is used to con- 
vert to and from decimal. 

The rest of the line contains the BASIC program state- 
ments. Each BASIC keyword is stored as a token, i.e., 
reduced to a one byte symbol. This has a twofold pur- 
pose. One is to reduce memory requirements and the sec- 
ond is to simplify interpretation during program execu- 
tion. For our needs, the token for “DATA” is 131 in deci- 
mal ($83 in hex). Spaces, commas, and literals (num- 
bers or letters representing their own value as opposed 
to variables) are stored in their ASCII form. The num- 
bers 0 through 9 are 48 through 57 respectively. A com- 
ma is 44 and a space is 32. The end of the line is indica- 
ted with a zero byte, and the last line of the program is 
terminated with three consecutive zero bytes. 

With this limited knowledge we can construct our own 
BASIC “DATA” statements. Since one numeric data item 
can have a maximum value of 255, we will allocate one 
memory location for each digit or three locations per 
item. Each item must be separated by a comma, so add 
one per item except for the last one on a line. 

Include in our tally 2 for the link to the next line, 2 
for the line number, 1 for the DATA token, and 1 for 
the terminator, and we have the following formula. 2--2-- 
1+4*ND+1 = the number of memory locations required 
10 store one program line. ND is equal to the number 
of data items desired on each line. Add this number to 
the address of the beginning of the current line and we 
have the address of the start of the following line. NL. 
will be the variable in our program that holds this address. 

If we want to increment the line number by 10 we sim- 
ply add 10 to the previous line number. LN is the уагі- 
able here. When we reach the end of the program add 
two zero bytes to the one that terminates the last line and 
our work is almost done. 

A program stored on disk or tape has as its first two 
bytes an address indicating where the program should 
be loaded. This is low byte-high byte format again and 
for our purposes the address is a constant. The C-64 us- 
es 2049 (50801) and the VIC 20 1025 (50401). 

That's about all we need to know to create a file оГ 
DATA statements directly on disk. 

We assemble and load our machine language file into 
memory, note the first and last memory locations used, 
and we're ready to begin. 

A loop that starts with the first data location and in- 
crements by the number of data items per line until the 
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Confused by Mail Order Ads??? 


Price is not the only concern. You should ask . 
1. Do you have the advertised product in stock? 

2. If the product is defective who handles the warranty? 
3. What is the total price delivered to my door? 

For the straight answers to these 
and all your questions, call us! 


Send Self Address Stamped Business Envelope for 

Complete Product List!!! C-64 Hardware'still available, Call! 
С-128 HARDWARE 

128K Expander 1571 Drive. ... 350K DYDD 

384K Expander 1670 Auto Modem. . 1200 Baud 

1902 Color Monitor 13" RGBComposite. .. 80/40 Column Display 

‘Teknika MJ22 Sane Specs as 1902 E $289 

1350 Mouse Eases Computer Input 

C-128 SOFTWARE 
- Integrated Software for use with 1350 
; Powerful CP/M Business Software 


PRINTERS 


JANE. 
Perfect Cale/Writer/ Fil 


Okidata 182 . 
MW-350 Interface 
Riteman C+ 


Powertype Daisywheel 18 CIS 
with Cardco B. 

DPS 1101 Daisywhee! 
Direct Connect to C64 


MONITORS 

Zenith ZVMGrlAmb . $89/99 Teknika M]IO ...... $189 
MODEMS 

Commodore 1660 $59 Westridge 6420 
. Call VIP Terminal 


Com Cool Drive Fan... 
Com Cool Plus w/ surge... 69 — Surge Protector 47 
* SPECIAL * Xidex Diskettes 55/00 $10.95 • 5 
BLACK МАНСУБ COVERS 
C-128 or 1571 Drive . 
С-64 or 1541 Drive 
MSD Drives 1/2 
Gemini 10X . 


$49 — Power Pak 


80 
9  1526/MPS 802 
‘DATABASE TOME, 


The Consultant 559 
Super Base 64 . ned 49 
“wor! D PROCESSORS 
Paper Clip/& speller $55/69 — Easy Script 

Fleet System 2 . 2 


MOST ORDERS SHIPPED W 


ys 
Hag 42 min | Pease al for sipping os mentors 
ices А тайы abject 1 change 


HOURS: MONDAY-FRIDAY 11 AM to 7 РМ © SATURDAY 10 AM to 5 PM 


is: 800-638-2617 


LINE: 
FORMATION & IN OHIO 216/758-0009 


(i Ш ТҮТГІ тк 
DIG D! YI ES 


1301 BOARDMAN-POLAND ROAD POLAND, OHIO 44514 
60 AHOY! 
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last location is reached will be the main loop of our util- 
ity. This loop keeps track of the start locations of each 
line and the line numbers themselves. It writes the first 
part of each line to disk up to and including the token 
for DATA and additionally writes the line number to the 
screen to show the user the progress of the program. 

Inside the main loop a smaller loop, incrementing by 
one up to the number of items per line, creates each item 
for the DATA statements. Internal to this loop is a third 
loop to step through the conversion of data items into 
ASCII characters and write them to disk. 

Last is a counter to determine where to insert com- 
mas. We don't want a comma after the last item on a line. 

Prior to entering the main loop of the program, the 
disk file is opened and the program load address is writ- 
ten. Each iteration through the loop writes a program 
line and at the end of the loop the program terminator 
is written and the file is closed. 

‘Two subroutines are used. One does the error checking 
on the disk file and the second is to allow hexadecimal 
inputs for the first and last memory locations to be saved. 
Since the main function of this program will be saving 
machine language routin: hexadecimal input will prob- 
ably be the norm. Hexadecimal input numbers must be pre- 
ceded with a dollar sign to distinguish them from decimal. 

Once the file is on disk it can be edited just like any 
other, or appended to an existing file. 

Existing programs that have an unequal number of data 
items per line or that for some other reason need to be 
reformatted can also benefit from this program. Simply 
load the old program and let it POKE in the data. Then 
load Auto-Gen and let it do its work. Finally reload the 
original program, delete the old DATA statements, and 
append the new. The result is a neatly formatted pro- 
gram with an equal number of DATA items on each line. 


VARIATIONS 

I like my program listings to be neatly formatted and 
easy to read. Consequently, I have no reservations about 
including spaces and blank lines to achieve this end. Lines 
1560, 1580, and 1470 in the program would be the ones 
to change if you absolutely must have files without lead- 
ing spaces on data items less than three digits. 

The choice of the number of data items on each line 
is arbitrary, but a few points should be considered. 10 
nice round number and helps us count items easily. 
16 is a good choice when working with machine language 
as it allows quick conversion to hexadecimal. 17 fits the 
maximum number of a C-64 program line and 19 does 
the same for a VIC 20. 

Incidentally, the sample output of this program is the 
first part of the DOS Wedge 5.1. It was created by sav- 
ing from 52224 to 52273. To store the complete wedge 
use 53081 as the end address. Don't be surprised at the 
length of the resulting program, though. Using DATA 
statements to store machine language programs is most 
inefficient. О SEE PROGRAM LISTING ON PAGE 89 
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DRAGON TYPE 


For the C-64 
By Bob Spirko 


omputer programming offers the frustrat- 

ing paradox of not lending to one's typing 

skills. After months or even years of pro- 

gramming, many of us still cannot type 

with any speed. This is especially apparent 
in telecommunications, where each party takes turns plod- 
ding letters on the screen. And when it comes to word 
processing, we suffer the same inertia. 

Fed up with my own keyboard struggles, I went and 
bought a typing-drill program, This was a neat setup 
where you shot down a flying saucer by correctly typing 
in words, After each session, your speed, accuracy, and 
score were given. This, along with color and sound, 
helped to assuage the drudgery of practice. And the drills 
worked. In a few weeks I was typing faster and more 
accurately. But in time, I became bored with typing the 
same words. Besides, wouldn't it be better to type a va- 
riety of words? Unfortunately, I could not change the 
words, since the program was copy-protected. 

Keeping this in mind I wrote my own typing-drill pro- 
gram. It includes the best features of the other, but it 
allows you to change the words. This provides you with 
an unlimited number of skill levels. If you find the words 
that I chose too difficult or too easy to type, or you sim- 
ply become weary of them, replace them with your own. 
With Dragon Type you can also practice typing symbols: 
it accepts ASCII codes 32 to 90. 

Nor did I stop there, I replaced the flying saucer and 
laser gun with a dragon, Using the m of machine 
language, I brought the little beast to life so that it could 
run across the screen and eat words. How well he's fed, 
though, is up to you, for he can only eat those letters 
that have been correctly typed. 

Dragon Type consists of two programs: the first is in 
machine language and the second in BASIC. Туре in and 
SAVE both programs. Now RUN the first program. After 
the machine language is LOADed into memory, the sec- 
ond program is automatically LOADed and RUN. Then 
the fun begins. 

First, the dragon does a quick warm-up; then you're 
asked to choose a level. There are three animation speeds. 
While a novice can use the fa vel, he may feel intim- 
idated by a frantically paced sprite. On the other hand, 
а good typist might find that a slow sprite cannot keep 
up with his speed. Once your choice is selected, words 
fill the screen. 

Now enters the dragon. He emerges from the left side 
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of the screen, races to the first word, and stops. Poised 
over the first letter, he snaps his jaws wide open and awaits 
your command. Tap in that letter, and the dragon gulps 
it down and moves on to the next letter. Continue typing 
and the letters disappear as the voracious creature munch- 
es them (he eats spaces, too). Press the wrong key and 
à beep is sounded, signaling an incorrect entry. (You can 
abort the meal by pressing f7.) At the end of each line, 
ds off the screen only to reappear on the next 
for another course. Once your dragon con- 
sumes all the words, the screen displays your speed and 
the number of typing errors. Also shown is your score 
and your highest score; these reflect both your speed and 
accuracy, To go another round, just press the space bar. 
Pressing RETURN ends the program. O 

PROGRA] M LISTING ON PAGE 88 


PRINTER INTERFACES. 
Wiz... ...... CALL 
Cardco B... 
Turbo Print - 
моовмв 
Westridge Auto- 
modem ....... $69.95 
Modem 300 (1660) $79.95 
P 1064 64 ... $79.95 
Tuai Telecommuni- 
cation ЕСІ 
PRINTERS. 
Epson Homewriter 
with Interface . 5299.95 
Commodore 803. $179.95 
(tractor feed 
|| | option) 29.95 
| Commodore DPS i101 
(Daisy wheel) ... $299.95 Print Shop ..... 

Star SG-10 ..... $224.95 Foppcene Head 
Panasonic 1091. $299.95 —, Cleaner....... 512.95 
Citizen MSP-10 . $329.95 Mach 5 2.5245 


G.E. Printer 5219.55 
MONITORS 
С128 ..... CALL 


1702 Color ..... 
Gorilla (green) . 
Gorilla (amber) . 
Sakata Color 


Paper Clip 
(м/бре!)...... $79.95 
Word Pro 3+ (64) 539.95 
Write Now ...... 534.95 
Databas 
Superbase 64 .... $69.95 
The Consultant . . . $74.95 
Spread Sheets 
Cal. Kit ......... $39.95 
Calc Result $69.95 
Utility Software 
. $29.95 


Please call for any special 
requests! 


COMPUTER 
МАРЕН Ч5Е 


(in FL) 305-274-3680; 1-800-372-0214 
7222 SW. 117th Avenue, Miami, FL 33183 
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FILE LOCK 


Scratchproofing for Your С-64 Programs 


ow many times have you scratched a file, 

and then immediately regretted it? If you're 

like me, I'll bet a lot of times, Lately there 

have been several UNSCRATCH utilities 

published, but that’s a pound of cure. 
What's really needed is an ounce of prevention and that's 
where File Lock comes in. 

File Lock provides a scratchproof feature for the 1541. 
Built into the DOS, but kept secret by Commodore, the 
1541 has the ability to lock out the scratch command on 
a file by file basis. This LOCK/UNLOCK is not sup- 
ported by any built-in commands in the 1541, but is avail- 
able through a utility like File Lock. 

File Lock has a very convenient user interface. When 


MERLIN 64 


THE BEST MACRO ASSEMBLER FOR THECOMMODORE 64 
Easy to use for the beginner or professional, Merlin 64 is. 
ап extremely powerful macro assembler. 

Just a few of its features include: 


© Fast assembly times 

© Word processor like editor 

© Conditional assemblies, 
Optional assembly to disk 

@ Includes Sourceror, an easy to 
use disassembler that creates 
Merlin 64 source files from 
binary data 

© Macro library of common 
operations 

© Cross Ref. utility program 

© 80 column display 
compatibility 


This is the best assembler I've seen for the Commodore 64..." 
Wm. Sanders / Assembly Language for Kids 


~.. an outstanding value. ..I can't imagine how it could 
be better.” 


49 95* C Peterson /AHOY! Magazine 
. "Plus $3.00 Shipping CA Res add 6% Sales Tax. 
Ask your local dealer for details, or just write or call: 


Р.О. Box 582 e Santee, CA 92071 e Telephone: 619/562-3221 
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BY DON LEWIS 


you run File Lock, the program prompts you to insert 
a disk. It then reads the directory of file names from the 
disk. Two large boxes appear on the screen with the file 
names in them. Below the boxes is the command line? 

The command line has the following commands avail- 
able: 


SCRATCH — scratch files 
hproof files 
UNLOCK — remove lock 


PAGE — advance to next screen of files 
BOOT — restart program 
QUIT — exit to BASIC (READY) 


Choose the command you want by typing the first let- 
ter of the command word, for example, L for LOCK. 
After you have made your choice, a small arrow appears 
on the screen next to the first file name. Files are se- 
lected by moving this arrow around the screen with the 
cursor keys, HOME key, and RETURN key. Files selec- 
ted are highlighted in reverse video. Hitting the left ar- 
row key will cancel all the files selected and return you 
to the beginning of the program. 

After selecting the files, operation is started by hitting 
the first letter of the desired operation: S for scratch, L 
for lock, U for unloci 

File Lock works by modifying a bit in the file type byte 
in the directory entry for that file. (See page 67 of the 
1541 manual.) As an example, a PRG file has a file type 
of $82(1000 0010) if it is not locked. When locked, bit 
6 is set, yielding $C2(1100 0010). 

Locked files are marked in the directory listing by a 
< symbol next to the file name. Once a file has been 
locked, the 1541 will send the error message 'FILE NOT 
FOUND if an attempt is made to scratch the file. 

File Lock tends to be a bit sluggish in its operation since 
it is a BASIC program. However, when it is compiled 
with a BASIC compiler such as Blitz!, its performance 
is greatly improved. If you like File Lock, I would rec- 
ommend that you Blitz! it for the best performance. 

As with my other program in thi 
33), I wish to acknowledge the assi: 
leagues at R. J. Brachman Associates, Inc. (Havertown, 
PA) in developing this program. Please address any cor- 
respondence to D. Lewis, PO. Box 521, Folsom, PA 
19033. Include а SASE if you wish a reply. CJ 

SEE PROGRAM LISTING ON PAGE 93 
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MANY WAYS ТО SAY 
I LOVE YOU 

CBS Software 

Commodore 64 

Disk; $29.95 

Fred Rogers has used music and 
conversation to teach children to val- 
ue themselves and their families for 
almost 18 years on Mister Rogers’ 
Neighborhood, the longest running 
program on public television. In an 
effort to expand the relationship be- 
tween parents and children, Many 
Ways to Say I Love You gives children 
an electronic forum to creatively dis- 
play their affections. 

All the songs in the program are 
easily recognized, either popular folk 
tunes or regulars from the show. My 
two year old had no problem singing 
along with Wont You Be Му Neigh- 
bor and It's Such a Good Feeling. Be- 
fore long she had picked up Twinkle, 
Twinkle, Little Star and Frère Jacques. 

Ah! But what are the songs for, you 
ask? Many Ways to Say I Love You 
helps a child design and deliver an 
electronic greeting card, complete 
with moving pictures and music. The 
child can pick a message like “I think 
you're special” to appear at the top 
of the card type in text on the bot- 
tom. In this way, each card can be 
personalized, 

The graphics are great. Choice of 
“stickers” includes animals, trees, 
flowers, moon, stars, houses, a cas- 
tle, and residents of Mister Rogers’ 
Neighborhood (including the trolley, 
Mr. McFeeley, and several characters 


Child picks background, border, more. 
READER SERVICE NO. 102 


Lets tykes design and personalize (but 
not print) electronic greeting cards. 


from the land of make-believe). All 
the stickers will perform some action 
while the card is being “delivered.” 
Before choosing pictures to illustrate 
the card, a background and a border 
design can be chosen. 

There are two levels of difficulty: 
a full frills card or a simplified one 
with just background, stickers, and 
music. The simplified version is good 
for youngsters who have not yet 
learned to read. 

The program does have an option 
to save cards to disk. Up to 24 cards 
can be saved on your master disk; 
however, I wouldn't take the chance. 
CBS takes pains to explain the buy- 
ег rights іп the program, and these 
rights include making a backup. 

While I'm skeptical as to whether 
this well-designed program will open 
any heartfelt chats between parents or 
children, it does offer a chance for 
closer interaction. Any parent who 
buys it should be prepared to spend 
time listening to cards. There is no 
printout option, so you won't be able 
to send greetings to friends and fam- 
ily around the country. 

If nothing else, my daughter has 
learned to sing two new songs. And 
the youngster I borrowed from down- 
stairs showed her mom that compu- 
ters can be used for something be- 


sides shooting aliens and learning to 
add and subtract. 

CBS Software, One Fawcett Place, 
Greenwich, CT 06836 (phone: 203- 
622-2500). —Cheryl Peterson 


ON-FIELD FOOTBALL 
Gamestar 

Commodore 64 

Disk; $29.95 

The popularity of football has lev- 
eled off on television, but there's a 
real boom underway in home com- 
puting. On-Field Football is only one 
of three pigskin programs scheduled 
for release in time for a fall kickoff, 
and at least one more is due early in 
1986. 

Unlike the other newcomers, 
which stress authenticity, On-Field 
emphasizes freewheeling fun, The 
media hype of the Super Bowl is 
light-years away from this brand of 
football. 

The inspiration for designers John 
Fitzpatrick and Scott Orr is not the 
National Football League, but rath- 
er the sandlot and pickup football 
games which fill youngsters’ fall and 
winter afternoons. This is four- 
against-four, not big-time football. 

Don't expect to be able to mimic 
all the latest wrinkles in pro and col- 
lege football. The coaches in this one- 
or two-player contest can choose 
from a variety of offensive and de- 
fensive moves, but the true simula- 
tions like Super Bowl Sunday (Ava- 
lon Hill Game Company) and The 
Worlds Greatest Football Game 


Players have individualized strengths. 
READER SERVICE NO. 103 
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BRINGS YOU BRAND NEW 
UNBELIEVABLE 
COMMODORE 64 DISKS 
Peter БЕНЕН ЕН EE БЕБІ ШЫ БЕН 

TIO 
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PRICES! 


Look for MASTERTRONIC programs at your local computer dealer 
or mass merchant. For more information write or call (301) 695-8877 


MASTERTRONIC INTERNATIONAL INC. 
7311B Grove Road, Frederick, Maryland 21701 
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(Epyx) boast significantly heftier 
playbooks. 

Joystick control makes On-Field 
Football exceptionally easy to learn 
and play. The coaches create each 
play by following a series of onscreen 
prompts. On offense, the gamer 
pushes the joystick forward, back, 
left, or right to select one of five pos- 
sible formations: “I” right (run), “I” 
left, split left (pass), slot right (pass), 
and kick. Then the offensive coach 
individually programs the video ath- 
letes who are going to run with the 
ball or catch it. Finally, the compu- 
terist can revise the play at the line 
of scrimmage by calling an audible. 
Pressing the action button when 
prompted to do so changes the in- 
structions for the halfback or the 
wide receiver, depending on whether 
it is, respectively, a running or pass- 
ing play. 

Coaches issue orders to the defense 
in the same way. The display prompts 
the gamer to choose separate options 
for the rush and secondary. The de- 
fense can call an audible to change 
the pass coverage at the last second. 

Once both teams complete play-se- 
lection, the action button snaps the 
ball to start the action phase. The of- 
fensive coach controls the passer with 
the joystick and employs a simple sys- 
tem to hand off the ball on running 
plays or choose between the two eli- 
gible receivers when putting the pig- 
skin into the air. The defensive coach 
guides the free safety with the stick 
and can even try to blitz the quarter- 
back for a big loss. 

The players are more than just an- 
imated cursors in On-Field Football. 
As in the same publisher’s On-Court 
Tennis, the coaches pick individual 
players from a roster of possibilities 
prior to the opening whistle. For in- 
stance, there's a choice between the 
slick-passing “Pinpoint” Pepper and 
the more mobile “Scrambles” Smith. 
Тһе teams can bring in replacements 
for tired players between the third and 
fourth quarters. 115 too bad that the 
same concept wasn't extended to in- 
clude members of the defense, who 
remain anonymous. This makes the 
game much less involving when the 
other team has the ball. 

The playfield is oriented so that the 


team with the ball always moves up 
the screen against defenders protect- 
ing the goal line at the top. When pos- 
session changes, the teams swap places. 
Gamers traditionally favor football 
programs in which the action moves 
side-to-side, but this attempt is more 
successful than most previous tries. 
The traditional complaint against ver- 
tical gridirons is that they don't pro- 
vide enough room for passers, run- 
ners, and receivers to maneuver, The 
designers of On-Field Football have 
made the players as small (relative to 
the size of the field) as practical to 
minimize this. Most computerists will 
still prefer horizontal football fields, 
but the overall effect isn't bad. 
The most useful of a batch of spe- 
cial features lets players choose be- 
tween regular 15-minute quarters and 
shorter 5-minute ones. The program 
also allows each coach to call three 
time-outs during the game. It is also 
possible to “pause” play entirely when 
the phone rings or nature calls. 
Like other Gamestar titles, On- 
Field Football takes practice to mas- 
ter. (Not, however, quite as much as 
Starbowl Football, also by Gamestar.) 
Computer sports fans who want an 
action-oriented football contest, rath- 
er than one which relies on pure strat- 
egy, are the most likely to enjoy this 
clever game. 
Gamestar, Inc., 1302 State Street, 
Santa Barbara, CA 93101 (phone: 
805-963-3487). —Arnie Katz 


COMPUTEREYES 
Digital Vision Inc. 
Commodore 64 
Hardware, disk; $129.95 

There is an old saying that a word 
is worth a millipicture. Nothing 
brings this truth home more clearly 


than working with digitized images. 
On the Commodore 64 a word is ac- 
tually worth even less, at most an 
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eighth of a millipicture. If color is 
considered, the fraction can be as 
small as one tenth. Of course, the 
words we are talking about are eight 
bits or one byte е; Nevertheless, 
the veracity of the adage is brought 
home with a vengeance. 

The Computereyes Video Acquisi- 
tion system adds vision, without fore- 
sight, to the ever-growing list of pos- 
sible applications for the C-64. The 
system will allow you to capture those 
fleeting images and translate them 
into the 8-10,000 bytes needed to de- 
scribe a bit mapped i 


good programming сап ài 
when coupled with the capabilities of 
the 64. 

In keeping with this introduction 
we have included several 
which illustrate the capabilities of the 
system. The Chinese plates show how 
Wayne Schmidt used the information 
contained in a digitized DOODLE! 
image. The color and fine detailing 
were all added afterwards. We should 
all be familiar with the original on 
which the Washington head on page 
68 is based. The young lady below 


it is the cover model from another of 


this company’s publications. 


THE HARDWARE 

The Computereyes module is a 
small black box that plugs into the 
user port. It serves as an interface be- 
tween any standard video signal and 
the computer, Suitable sources are 
video cameras, VCR's, video disc 
players, or TV's with video outputs. 
The video signal is fed to a standard 


Color and fine detail were added 
(left) to a digitized DOODLE! image. 
READER SERVICE NO. 105 
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RCA type jack on the back of the 
module. One of the two controls al- 
lows for the fine tuning or synchron- 
ition to the video source. The ad- 
justment is non-critical and easily ac- 
‘complished with the supporting soft- 
ware. You will most likely find that 
the setting will not change for a par- 
ticular video source. 

The other control compensates for 
the relative strength or brightness of 
the signal. The brightness control has 
a direct effect on the appearance of 
the acquired image. We found the set- 
ting of this control to be critical but 
ible. Small adjust s of the 
itness control have a significant 
impact on the final image. 


THE VIDEO SIGNAL 

The images displayed on a TV are 
redrawn 30 times a second. Each in- 
dividual image consists of 512 hori- 
zontal lines. These are sequentially 
drawn from top to bottom of the pic- 
ture tube. Creating an image in this 
manner is called scanning. Each im- 
age or screen is built up from two 
passes of 256 lines each. The first 
pass fills the entire screen; the sec- 
опа fills in the gaps between the lines 
of the first scan. This arrangement is 
called interleaving. It follows that the 
ideal TV picture would be able to re- 
solve 512 discrete verticle points. 
However, in practice this is not so. 

The capabilities of most TV's are 
about half of the theoretical ma: 
mum. The newer "monitor" receive! 
аге somewhat better, on the order of 
350 lines. The Commodore 1701 and 
1702 monitors fall into this class. 
ible to resolve about 
ime, although bet- 
ter equipment is in the works. La- 
serdisc players generally exceed the 
resolving capabilities of the best TV 
sets. 


SELECTING A VIDEO SOURCE 
Since the Computereyes module 
merely acts as an interface, you will 
have to provide it with a standard vid- 
ео signal. If you already have a home 
video system, with a color camera, 
then you're all set. In comparison to 
the overall cost of a complete video 
system, the $130 price of this pack- 
age is almost too good to pass up. If 


you do not have a home video system 
a black and white video camera is 
your best bet. These are available as 
no frills units for use with closed cir- 
cuit television security systems. The 
Ikegami model ITC-40 Surveillance 
camera is a high quality unit of this 
type. It is available as an option from 
Digital Vision. The package price of 
camera and module is $350. Bear in 
mind that surveillance cameras are 
truly no frills devices, lacking any 
type of viewfinder or sound pickup. 

A home VCR is a less than ideal 
video source for this application, The 
process of acquiring a detailed im- 
age takes quite a few seconds and 
several tries as the brightness is fine 
tuned. A stationary image must be 
provided for thes ral minutes. 
The freeze frame mode of a VCR 
s less resolution than normal 
operation. Also, the VCR will auto- 
matically start running after five min- 
utes or so to prevent the wearing of 
a hole through the tape. A laserdisc 
player should make a very good 
source, These devices provide a very 
high quality single frame image for 
unlimited intervals. 

A color video camera will work 
well. You may want to use its әсі- 
ated VCR as an intermediary device 
to avoid the cost of an additional са- 
ble and adapter. We did all of our 
tests with the Ikegami camera. 


A BIT OF A PICTURE 

"The Commodore 64 has the ability 
to create a graphic image composed 
of 320 horizontal dots by 200 verti- 
cal dots. This is a bit-mapped image, 
which means that each one of these 
64,000 dots or pixels corresponds to 
a single bit of computer memory. 
This is where we get the 8000 bytes 
or words mentioned above. A total of 
16 colors may also be displayed. The 
color information requires another 
1,000 bytes of memory. 

An alternate display mode permits 
the display of only 160 horizontal dots 
with the same number of vertical dots. 
‘The tradeoff for this multicolor mode 
is increased flexibility in the display 
of color. The memory requirements 
of the bit map for this mode are the 
same as above. The increased color 
capabilities call for 2,000 bytes of 


storage. (For additional discussion of 
Commodore 64 bit mapped graphics, 
see the October and November 1984 
issues of Ahoy!) 

As we can see, a C-64 bit map 
would seem to contain as much infor- 
mation as a TV picture. The reason 
it cannot create а televisionlike im- 
age is that the 64 is limited to a total 
of 16 possible 8 or colors. A 
television image is capable of thou- 
sands of brightness and color com- 
binations. Nevertheless, impressi 
results can be obtained, some exam- 
ples of which can be found in our Art 
Gallery (see pages 34 and 35) 

A number of software package: 
low the user to draw or create graph- 
ic images on the 64, including Flexi- 
draw from Inkwell Systems, 
DOODLE! from City Software, and 
Koala Painter from Koala Technol- 
ogies., Detailed reviews of these and 
a number of other packages were pre- 
sented with the discussions on bit 
mapped graphics previously men- 
tioned. These packages are supported 
by the Computereyes software. 


GETTING THE PICTURE 

The Computereyes software allows 
you to capture a video image as a 
Commodore bit map. Three different 
bit map formats are directly sup- 
ported. The optional software for use 
with the above graphics packages 
adds seven more formats. We will go 
into these in some de 

‘The first step is to set the synchron- 
ization control. A built-in routine 
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George digitized 
with Koala sup- 
port software, 
in low contrast 
format. With 
multicolor pack- 
ages like Koala, 
compatible image 
modes are limi- 
ted to low and 
high contrast 
capture, with up 
to four gray lev- 
els in each char- 
acter cell. 
— 
simplifies the process to just 
seconds. Once set, the sync control 
is left alone. The second step is to set 
the brightness control. A special dis- 
play mode performs a continuously 
visible image scan every six seconds. 
We found that by setting the bright- 
ness control so that only the bright- 
est highlights showed resulted in the 
best starting setting for subsequent 
operations. The operation of the 
package was very sensitive to the set- 
ting of the brightness control. Al- 
though the adjustment was manage- 
able, some sort of fine tuning would 
e been welcome. The controls 
ed pointers or markings, a 
minor inconvenience. It would be a 
good idea to mark the position of the 
controls after the initial setup. This 
would eliminate the need for these 
preliminary adjustments for each sub- 
sequent use. 
The package is menu-driven, with 


Model from 
magazine cover 
digitized with 
DOODLE! high 
contrast cap- 
ture, resulting 
in a bit map 
image with 
three intensity 
levels —white, 
gray, and black 
—with maximum 
resolution of 320 
X 200 pixels and 
two levels possi- 
ble in each 
character cell. 


built-in help screens. It is a complete 
image capture utility which allows for 
the LOADing, SAVEing, and view- 
ing of the captured images. The disk 
directory may be viewed without exit- 
ing the program; however, disk com- 
mands, such as for formatting a disk, 
cannot be issued. The programs are 
written in BASIC with the digitizer 
parts in machine language. Since no 
сору protection is used, it should be 
fairly easy to add whatever frills you 
may want. The starter package makes 
full use of the high resolution bit map. 

The quickest way to digitize an im- 
age is to use “Normal Capture.” This 
produces a high contrast black and 
white image. The original picture is 
scanned once with all parts above a 
certain brightness level assigned to 
white. Maximum resolution is ob- 
tained at the expense of any tonal 
gradation. This mode is relatively 
fast, completing a scan in less than 
seven seconds. 

Somewhat slower but generally 
more pleasing is the “4-Level Cap- 
ture.” The original image is scanned 
four times at different exposure lev- 
els. Each level is assigned to a shade 
of gray by turning on different num- 
bers of pixels. The tradeoff is loss of 
resolution, as four pixels are required 
for each part of the image. A 4-Level 
scan requires about 26 seconds. 

The “8-Level Capture” is similar to 
the above. Eight synthesized grey lev- 
els are formed with a corresponding 
reduction in image resolution. Cap- 
ture time is a bit over 50 seconds. 


OPTIONAL SOFTWARE 


The basic software generates a pure 
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8K bit map without any color infor- 
mation. If you have the Flexidraw 
graphics package, any of the above 
formats can be loaded in and worked 
on. Good results will also be obtained 
with the Flexidraw print utility, since 
these are pure bit map images. For 
use with other packages, Digital Vi- 
sion offers Compatibility System 
Software in support of Koala, 
DOODLE!, Flexidraw, and The Print 
Shop. Each disk tailors the captured 
image to the specific package. 

For the hi-res packages, namely 
Flexidraw and DOODLE!, the above- 
mentioned capture modes are sup- 
ported. Two additional modes are 
also provided. The “Low Contrast 
Capture” makes use of the C-64 color 
capabilities to generate a true five lev- 
el gray scale composed of the three 
grays, black, and white. In this mode 
the full bit map resolution is pre- 
served while still allowing for image 
shading. Since the high resolution bit 
map is used, only two gray levels will 
appear in any 8 x 8 pixel character 
cell. The “High Contrast Capture" is 
similar to the above, except every 
other gray level is used. 

Since Koala is a multicolor pack- 
age, the compatible image modes are 
limited to the Low Contrast and High 
Contrast captures. The difference is 
that finer gray scale resolution is ob- 
tained, since multicolor mode allows 
up to four colors in each character 
cell. As a result the Koala images are 
apt to be the most pleasing for many 
subjects, even with the reduced reso- 
lution of the multicolor bit map. 

The latest addition is the Print 
Shop support package (see the review 
of the Print Shop in the July '85 
issue). This will create images for 
both the Kaleidoscope and the 
Graphics Editor utilities. The support. 
for the latter is very well done. A 
large portion of a full image is 
marked by a movable mask. Simply 
use the cursor keys to select the por- 
tion you want. The software then 
blocks the image into the reduced de- 
tail for the graphics editor. When se- 
lecting a source image for conversion, 
keep in mind the 88 by 52 dot resolu- 
tion of the Graphics Editor (44 by 45 
dots for 1525 printers). Images with 
large solid areas will work the best. 


The Print Shop support package 
can be used to convert any 8K hi-res 
bit map image. The ones generated 
by Flexidraw, without color, are per- 
fectly suitable. Image files created by 
the DOODLE! package will have to 
be stripped of their leading kilobyte 
of color data. To do this you simply 
LOAD “DDPICTURE"8,1; where 
"DDPICTURE" is the file you want 
1o convert. Next POKE 450:POKE 
46,96. Finally SAVE *PICTURE"8; 
where “PICTURE? is the name of the 
file you want to create. The result- 
ing 33 block disk file will be a pure 
bit map, without the color informa- 
tion, ready for processing by the 
Computereyes Print Shop support 
package. 


PRINTING THE PICTURE 

The built-in print utilities of both 
DOODLE! and Flexidraw will do a 
fine job with the first three image for- 
mats. Strange results are likely if you 
try to print either the Low or High 
Contrast images. These images de- 
pend on the color information to pro- 
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| Characters per inch 
Number of the current font 
Name of the curent Font 
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Create Your Own or choose from over 15 type styles provided in this unique 
program. Epson/Epson compatible/Star Micronics printer. 1541 drives only. 


duce the different shades of gray. Тһе 
Koala screen dump utility will do a 
good job with either of the Koala for- 
mats. The Graphic Printer package 
by Michael Keryan takes into account 
the color information of a high-reso- 
lution bit mapped image. It is de- 
signed to work with the high density 
print modes of the Star Micronics 
Gemini series of printers or the Ep- 
son graphics-capable printers. Con- 
tact the Computerist, Inc., PO. Box 
6502, Chelmsford, MA 01824 (phone: 
617-256-3649) for information about 
this package. 

For a real personal touch, try trans- 
ferring a digitized image to a T-shirt 
by using the Underware Ribbon. This 
ribbon for the Epson, Gemini, and 
Okidata printers contains thermal 
transfer ink for iron-on images. Just 
remember to do a left to right flip 
with the DOODLE! software before 
printing. The ribbons are available for 
$19.95 from Diversi Inc., 1550 
Winding Way, Belmont, CA 94002 
(phone: 415-591-0660) (see the May 
"BS Scuttlebutt). 


Overview of FONTMASTER 
word processor features: 


2) User «friendly 
Super!sub scripts, underlining, bold lace, 
etc) 

3) Up to eight different fonts can be used 
simultaneously. 

4) Many printing options such as page number- 
ing, titles, word-wrap, right justification, and 
more. 

5) Eight disk НО commands (Save, Load, Verity, 

Erase, Etc), 


Including: English Shadow Manhattan 
Italic Укор 
=з Wairpin BYTE 3topbold 
тс Мілло:  umopeptsdn texe tare 
(913) 827-0685 
inc. 3010 Arnold Road Salina, KS 67401 


Reader Service No. 129 


AHOY! 69 


http 


SOME OPERATING TIPS 

The techniques used for black and 
white photography can be applied to 
imaging with the Computereyes sys- 
tem. As such, good photography 
practices apply. Pay careful attention 
to lighting and background. If you are 
using a black and white camera, pho- 
tographic colored filters for contrast 
enhancement can be quite useful. 

Want to get close up? A low pow- 
er magnifying lens placed directly in 
front of the camera lens will allow 
you to focus much clo: 
wise possible. The c 
and image quality will be virtually 
unaffected. 

Being able to directly view the vid- 
ео image greatly simplifies the setup 
procedure, If you are using a moni- 
tor with your computer, a simple 
RCA type “y” adapter and a two po- 
sition video switch are all you need. 
Just intercept the camera signal with 
the "y" adapter and send it to both the 
Computereyes module and the video 
switch, The computer video output 
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goes to the other side of the switch 
to complete the hookup. The Com- 
modore 1701 and 1702 monitors are 
ideally suited for this purpose. Sim- 
ply send the camera output to the vid- 
со jack on the front of the monitor. 
The computer should go to the back 
connectors. The switch on the back 
panel will let you select between the 
two sources. 

The camera video signal cannot be 
fed directly to the antenna terminals 
of a TV set. It will have to be con- 
verted to the radio frequency broad- 
cast format. An RF Modulator, avail- 
able from Radio Shack as catalog 
number 15-1273 for $24.95, will do 
the job. If you can do some of your 
own tinkering, then the basic RF 
modulator, sans power supply, is 
available for $9.95 as catalog num- 
ber 277- Simply feed both the 
computer and the modulated video 
signals to the set's antenna terminals 
via a game selector switch. Or set one 
to channel 3 and the other to chan- 
nel 4 and use the set's tuner. 


CONCLUSIONS 

Computereyes is an easy to use im- 
age digitizing system for the 64. The 
resulting images are remarkably de- 
tailed for such a low cost system. 
With care, directly usable images can 
be readily generated. The еріді 
supporting software allows the imag- 
es to be saved for subsequent editin; 
by some of the more popular graphics 
packages. The resulting images pro- 
vide a wealth of detail for manipula- 
tion in this environment. 

Digital Vision Inc., М Oak Street— 


Suite 2, Needham, MA 02192 (phone: 


617-444-9040). 


AUTHOR'S NOTE 

While working with Computereyes for 
this review I rapidly accumulated sever- 
al disks full of images on a variety of 
subjects. In fact the process became rath- 
er addictive. If you would like to have 
these for your own use I would be glad 
to provide a diskful for 512 to cover сору- 
ing and distribution. Just specify which 
format you would like. An SASE will get 
you a listing of available disks and their 
contents. Send payment to Morton Kev- 
elson, PO. Box 260, Homecrest Station, 
Brooklyn, NY 11229. 


BLAZING PADDLES 
ВашауШе 

Commodore 64 

Disk; $34.95 

Billed as a graphics package that 
will work with most of the input de- 
vices available for the Commodore, 
I found that Blazing Saddles worked 
well with both a joystick and the Ko- 
ala Pad. Although it worked with a 
Tech Sketch Light Pen, it was ex- 
tremely erratic. While supposed to 
work with track balls, paddles, light 
pens, joysticks, or graphics tablets, 
it can only be used with one device 
each time it is booted up. If you wish 
to change devices during a session, 
you must reboot the program—a 
three-minute process. Quick loaders 
like FastLoad and Mach 5:have no 
effect on Blazing Paddles. 

One annoying deficiency can be 
found as soon as you decide to boot 
the program. The documentation 
warns not to plug or unplug devices 
while the program is running, but 
doesn't bother to tell you which in- 
put devices use which ports. Despite 
the warning, when the joystick failed 
to move the cursor I switched it to 
the other port. Fortunately, nothing 
blew up. From my experience the 
Koala Pad and light pen used port 1, 
the joystick used port 2. 

The program is designed well, with 
most of the features we've come to 
know and love: sketch, fill, zoom, 
and draw dots, lines, frames and box- 
es, ovals and circles. Especially nice 
is the undo command, Hitting a sin- 
gle key cancels your last update. A 
spray paint mode lets you brush in 
color a little at a time. Subsequent 
strokes darken the shading. 

The cut and paste window can be 
used to duplicate things on the screen 
without having to redraw them. A 
window's contents can be saved and 
reloaded using a separate filename, 
as well. 

The screen can be cleared to any 
of the 16 colors. Since this is a two- 
step process requiring some preci- 
sion, it is very difficult to acciden- 
tally wipe out your work. In fact, 
about the only way to really mess up 
is to change the background color to 
the same color you're using to draw 
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with and then return to the main 
menu. This is entirely possible, since 
you can change the background col- 
or at any point during your work by 
using fl. 

A text mode allows you to put mes- 
or labels in your drawings. The 
characters look strange, both on the 
screen and in the printouts. One of 
the companion disks, Shapes and 
Fonts, has a number of other type 
styles that you can use for writing 
messages and labels. 

Тһе $20 companion disks (Shapes 
and Fonts, Science, Kid Stuff) are 
probably the best recommendation 
for this program, These have pre- 
drawn figures that cover a variety of 
subjects. I used the electronic sym- 
bols from the science disk to create 
а circuit drawing. The resolution of 
printouts leaves something to be de- 
sired: high resolution. The print qual- 
ity is about the same as the Koala 
Painter in low resolution mode. 

The Blazing Paddles disk includes 
a few stick figures to show you how 
to take images out of the picture li- 
braries and put them into your draw- 
ings. This is one area where this pro- 
gram shines. The sprite sized figures 
can be manipulated before you put 
them into your picture. You can flip 
them over, rotate them around 90 de- 
grees, or change their color. The ex- 
tra disks have some useful shapes on 
them (especially if you're a kid trying 
to impress your science teacher). 

One other disadvantage that I found 
was not being able to exchange col- 
ors. Although switching the back- 
ground colors is easy, if you want to 
change the color of lines you've al- 
ready drawn it’s a difficult task. I've 
een one graphics program with 
ure, so I can't be too hard on 
Blazing Paddles for not having it. I 
originally chose a dark background 
with light lines for my circuit diagram 
because it was much easier on the 
eyes. When I got it finished, though, 
I realized it would look much better 
reversed. It took another two hours 
to redo the drawing. If I could have 
changed the background using fl and 
then changed the lines to another col- 
or, it would have taken only a few 
seconds, Using fill on thin lines is al- 
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a Breakthrough in Value ! 


ULTRABYTE 


NEW PRODUCTS - ALL 
with FREE BACKUP COPIES 


ULTRABYTE DISK NIBBLER 


Uses үну revision of disk ҰЛЫДЫ (005 | to make 
a bit by bit copy. This process. called nibbling, copies the format, 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built in fast load environment allows 
copies іп 8 minutes with a single 1541 disk drive. 


Easy to use. No separate analysis or error production 
Choose 35. 36. 37 or 38 tracks to copy incl. half tracks 
Makes up to 5 copies of each original — ( UNIQUE FEATURE} 
Backs up 99% of all protected software 

Free backup сору -two disks lor the price of one 


FOR 2 COPIES OF THE 
DISK NIBBLER 


plus $4.00 shipping and handling. Mastercard, Visa. Check or M.O., Foreign orders 
or COD add $2.00. Calif, add 657; ($2.60) sales tax. Additional backup copies аге 
$20.00 plus $300 shipping. ATTENTION : Owners of ULTRACOPY whose names 
are in our file may order a single copy lor $2000 plus 53.00 shipping. 


FREE BACKUP DISKS 


McMURPHY'S MANSION 
vw АҢ ULTRABYTE 
NS TEXT ADVENTURE 


Nt seems that an unknown uncle has died in 
faraway Scotland and lelt you his vast 
fortune. 510000 000 to be exact !! 

There is only one small problem. Dear old 
uncle McMurphy was a bit demented and 
has hidden your inheritance somewhere in 
his mansion 


He lett you only one small clue. a brass key. 
Mis now up to you to find your fortune. 
= 30-60 hours of challenge 


* Sealed envelope ol hints 
lor beginners 


* Instruction manual included 
* Solution sheet available 


Ш 520.95 tor 2 disks 
plus $4.00 shipping. COD or 
Foreign add $2.00. CA tax $1.95 


THE DISK SURGEON 
sew AN ULTRABYTE 


DS DISK UTILITY 


* Read data Irom, edit and write to disk 
* Analyze disk errors without “hammering 
* Write errors 20, 21, 22.23, 27 & 29 on disk 
© Read data under errors, erase errors 
Decimal, HEX. Octal & Binary conversions 
* Format a single track with any 10 


© Detailed instructions for beginners 
• Much more 


INCLUDES THREE PUBLIC DOMAIN COPY 
PROGRAMS THAT ARE NOT PROTECTED 


1] FILE COPY to copy portions of a disk 
2) SINGLE TRACK COPY 


3) 4 MINUTE COPY of entire disk. 
Protected disks also require error 
production 


$29.95 for 2 disks «4 
plus $4.00 shipping. COD or 
Foreign add 52.00. CA tax $1.95 


All Products for Commodore 64 & 1541 Disk Drive Only 
Write or Call 24 Hour Order Line 


ULTRABYTE (818) 796 - 0576 
P.O. Box 789 La Canada, CA 91011 


DEALERS & DISTRIBUTORS WANTED 
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FR E Es C-20 CASSETTES 


А subscription to the ‘Cassette of the 
Month’ gets you a tape or disk ful of 10 
quality Commodore 64 programs deliv- 
‘tod to you by frst clase тай every month, 

imentation included will help you 

run great utilities like ‘Word Processor,’ 
and "Budget Analyzer; or enjoy great 
ames lke Frogump and Galeria 

Cave FOR AS Е AS 50 CENTS 


* Limited offer ж Subscribe for a year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe for a year on disk and 
receive 10 Free 5% single sided double 
density diskettes! 


+ Wevebeeninbusinesstor мал Res aos 

over troo yuan pd 
ж Over 4000 saisfedcoor ant 51.00 1o е asen. 
PERSONAL CHECKS WELCOME! 


TADSubserghonSotware 
РО BOX 2560 
= 


computer owners 
% Commodore 64 required 


HOLLAND, MI 49423 
(616) 996-7577 
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most impossible, especialy if they're 
diagonals. 

Except for the one flaw mentioned 
at the beginning, the documentation 
is very good. Besides the manual, 
there is an onscreen help menu, Al- 
though it’s a nice idea, by the time 
the help file loads you could have 
looked it up in the manual. Keyed 
to the input device you are using, it 
gives brief instructions on how to en- 
ter commands, 

For instance, the joystick will draw 
оп the canvas as long as the fire but- 
ton is held down. To go back to the 
main menu, you must press f5 to take 
the cursor off the screen and then hit 
the fire button. For some reason, 
when using the joystick the cursor 
won't go over into the border. 

The joystick is very slow to re- 
spond, by the way. The light pen but- 
ton wouldn't work, so I had to use the 
control key instead. Also, the calibra- 
tion on the light pen was off by about 
half an inch. In addition, whenever 


Dreams CAN come true! 


Back in June of 1983, Kelvin Lacy 
had a dream, He dreamed of creating 
one integrated program that would 
include a spreadsheet, business 
graphics and a database. A program 
with the power of Lotus 12.3. On the 
Commodore 64. People laughed! He 
had just finished OmniWriter, to be 
marketed by HESWARE. Ignoring the 
skeptical, he started on VIZASTAR. 


Now, after 15 months, his dream has 
come true. VIZASTAR has a full 
featured spreadsheet, as good as 
Multiplan. But much faster faster 
than many spreadsheets on the ІВМ 
PC! It is written 100% in 6502 
machine language code and is 
ALWAYS in memory. It is menu 
driven, using the latest techniques in 
user friendliness. It is compatible with 
virtually all printers and word 
processors. Up to 9 windows can be 
open simultaneously, anywhere 
Remarkably, 10K of memory is 
available for spreadsheet use. 
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The database is equally impressive. 
Create file layouts by simply painting 
a picture of the layout on up to 9 
screens, showing where a field starts 
and ends; VIZASTAR does the rest 


Imagine the power of a spreadsheet 
integrated with a database. Now add 
graphics — bar, line, and multi-color 
pie and 3-D “skyscraper” graphs. You 
could access a customer's profile in 
the database, transfer the data to the 
worksheet, and let it calculate 
discounts, sales tax etc. and then 
transfer the updated data back to the 
database. Open up a window 
anywhere and display a graph of your 
data, instantly, This integration is the 
key to VIZASTAR's power—the first 
and only program of this kind on the 
С-64. All commands can be 
automated, so you can “program” 
your own applications and run them 
with one keystroke. 


Reader Service No, 118 


REVIEWS 


I tried to change the brush color, the 
background color of my drawing 
would change, too. Although the fl 
key could be used to change it back, 
it was a pain in the neck. Of all the 
input devices used, I enjoyed the Ko- 
ala Pad most. It responded quickly, 
and didn't give me any trouble. 

This is a nice graphics package, 
although the input device you use will 
ultimately determine how satisfied 
you are with it. I would rate it about 
equal to other packages in its price 
range. Unless you are specifically 
looking for a package to use with sev- 
eral input devices, you would prob- 
ably do just as well to buy any of the 
devices that comes with its own soft- 
ware and leave it at that. If you want 
to spend the extra money for the 
shapes disks, then Blazing Paddles 
becomes a good value. 

Baudville, 1001 Medical Park 
Drive S.E., Grand Rapids, MI 49506 
(phone: 800-824-8873). 

—Cheryl Peterson 


VIZASTAR includes a cartridge, a 1541 
diskette with a backup, reference and 
tutorial manuals. VIZASTAR is ONLY 
$119.97, We are so positive you will be 
delighted with VIZASTAR that we offer a 
15day money-back guarantee. Try it risk 
free! Compare VIZASTAR with any other 
spreadsheet or database, 


So order today. Call or send a check or 
Money Order. Calif. residents add 6.5% 

sales tax. MC/VISA accepted. 

Add P&H: UPS—$3; COD, Canada—$6 


SOLID STATE SOFTUARE| 


1125 E. Hillsdale Blvd., Suite 104 
Foster City, CA 94404-1609 
(415) 341-5606 


Dealer Inquiries Welcome 


http vww.oldgamesita 


а.пеї 


GO-LISTER 


A Programming 
By John 


o-Lister is a machine language utility that 
produces a printout showing which BASIC 
program lines are called by GOTO, 
GOSUB, THEN, and ON statements in 
other program lines. 

Anyone who has ever tried to modify a program writ- 
ten by someone else, or who has simply lost track of 
where the GOTOs get to in his own program, knows the 
frustration of changing a line in some apparently innoc- 
uous way only to have the program begin to act strange- 
ly because the line is accessed by a transfer statement 
somewhere else. 

This utility provides a warning when a particular line 
is used by several other lines in common, and shows when 


Aid for the C-64 


K. Lunde 


it is safe to ‘crunch’ one or more lines together. 

It is also useful in analyzing programs, since knowing 
which lines are called by others gives you a good idea 
of the program's structure. 

Go-Lister must be typed in using our Flankspeed ma- 
chine language entry program. Follow the instructions 
on page 86 for typing and saving Flankspeed. Then run 
Flankspeed, and type in and save Go-List 

To use Go-Lister, type LOAD “GO-LISTER"8,1 and 
load your target program, then type SYS 49152 to run 
Go-Lister. The only restrictions are that the target pro- 
gram must start at the usual start-of-BASIC location 
(2049) and that the printer must be device #4. O 

SEE PROGRAM LISTING ON PAGE 109 


MOXEY'S 
PORCH 


For the С-64 
By Bob Blackmer 


oxeys Porch is an arcade-style game played 
on a three dimensional multistep porch. 
After entering and running the game you 
will be asked if you want instructions. Then 
enter the level (1-9) that you wish to start at 
(level 9 is easiest). 

You control Enzo as he jumps on his pogo stick. His 
neighbor, Moxey, a likeable fellow, has just put the finish- 
ing touches on his newly painted porch, 

Using the joystick in port #2, maneuver Enzo around 
the porch marking up the steps. Don't let Moxey catch 
you as he runs around his porch trying to stop you, or 
the game is over. 

After you mark up all the steps, you reach the next 
level where Moxey gets a little faster. See how long you 
can keep going once you reach level 1. 

Moxey’s Porch is a good example of the game screens 
made possible by using multicolor custom character sets 
and multicolor sprites, O 

SEE PROGRAM LISTING ON PAGE 91 


Now Your 
Computer 
Can See! 


$295.00* 


A tolal imaging system complete 
and ready for plug and.qo opera 
tion with your personal computer. 


The MicronEye" 


MicronEye~ 
up to ISFPS. An electronic shu 2 “Bullet” 
is easily controlled by software or 
‘manual functions. and the included sample programs allow you to сот 
sly scan, freeze frame. frame store. frame compare. print an 
ures in shades of grey from the moment you begin o 


и automatic solid sta 
through mult 


sensor image digitizing, with capablity for rey 
е f 

* в perfectly suited for g 

recognition, security, digitizin 
many other applications. 


automated process control and 


for thes 
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TOURING THE 
COMMODORE 128 
KEYBOARD 


Continued from page 54 


THE REST OF THE KEYS 

The top row of the keyboard has 
à total of 16 keys in groups of four. 
The four function keys on the right 
have been described above, The left- 
most grouping includes the ESCape 
and the TAB keys as well as an ALT 
key and a CAPS LOCK key. The 
ALT key is intended for use with al- 
ternate character sets under program 
control. This will be a topic for fu- 
ture discussion, The CAPS LOCK 

a a SHIFT key only on the 
. As with the SHIFT 
LOCK key, the CAPS LOCK key in- 
cludes a mechanical latch to hold it 
down. 

The next group starts with a HELP. 
key. If this key is pressed immediate- 
ly after a BASIC program error, the 
offending BASIC line will be dis- 


HARNESS RACE ANALYZER 


Lot the speed and power of your computer 
give you that added edge! Features: 


Ж. Analyses 11 important categories 
(all found on the daily racing form) 


Ж Morning 


dds are NOT used in 
ns. This gives you a 
mation independent 
from the morning line. 


Ж Simplified data entry - approxi- 
mately five minutes per race. 


* Info оп up to 20 races printed on 

ge Master printout including 
for each horse, bet sugges- 
„ and best bets of the day. 


* If no printer is available, information 
i$ sent to the screen. 


Ж Bot suggestions include: best win, 
place, show quinella, perfecta, exac- 
ta, trifecta and tri-box. 

Ж Printout info con also be saved to| | 
disk for later use. 

Available on disk for the 
C-64*, PLUS/4* and C-16* 
Please specify which computer 
you are using. 


Send Check or Money Order for 
4.95 to: 


ALSOFT 
BOX 164; CLAIRTON, PA 15025 


“Trademark of Commodore Electronics 
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TABLE OF CONTROL KEY FUNCTIONS 


CONTROL В CHRS(2) 
CONTROL G CHRS(7) 
CONTROL Н CHRS(8) 
CONTROL І CHRS(9) 
CONTROL J CHRS(I0) 
CONTROL К СНЕЅ(П) 
CONTROL L CHR$(D) 
CONTROL О СНЕ$(15) 
CONTROL X CHRS(24) 
CONTROL | CHRS(27) 


Turn underline on in 80 column display 
Produce bell tone 

No effect 

Move cursor to next tab stop 

Send a linefeed without a carriage return 
Enable character set change 

Disable character set change 

Turn flash on in 80 column display 

Tab set or clear 

Send an ESCape character 


CHRS$(I30) Cancel 80 column underline 
CHR$(143) Cancel 80 column flash 


played. Starting with the point in the 
line at which the error occurred, the 
remainder of the line will be dis- 
played in reverse on the 40 column 
display and underlined on the 80 col- 
umn display. 

The LINE FEED key moves the 
cursor down without a carriage re- 
turn. This is the same à 
CONTROL J ( CHRS(10) ) di 
above. The 40/80 DISPLAY key is 
another mechanically latched button. 
It determines the display mode on 
power up or when the reset button is 
depressed. Latching it down defaults 
to the 80 column display. It has no 
effect once the computer is up and 
running. The NO SCROLL key acts 
as а pause button. It comes in handy 
for freezing a program or directory 
listing in its tracks. Hii key a 
second time restarts the listing. In a 
es pro- 


similar fashion, it also paus 
gram execution. 

The next group consists of four in- 
dependent cursor keys. These dupli- 
cate the operation of the cursor keys 


notable exception is that it is not nec- 
essary to SHIFT for a cursor up or 
à cursor right. I found that I have 
grown so accustomed to the old cur- 
sor keys that I almost never used the 
new ones. Perhaps the need to reach 
to the top of the keyboard discour- 
ages their use. 

Finally, a 14-key numeric keypad 
duplicates the function of the num- 
ber, plus, minus, period/decimal 
point, and RETURN/ENTER keys. 
The numeric keypad and the four in- 
dependent cursor keys are electrical- 
ly different from the number keys and 


the cursor keys on the Commodore 
64 subset of the keyboard. Although 
they return the same CHRS code with 
а GET statement, it is possible to dis- 
tinguish them by PEEKing an аррго- 
priate location. (See sidebar on page 
52 for details.) 

This hardware separation of the 
keypad from the rest of the keyboard 
is a minor disappointment to C-64 
upgraders. If the keypad had been 
kept electrically identical to the num- 
ber keys on the keyboard it would 
have been usable in C-64 mode as 
well. This would have allowed the use 
of all existing Commodore 64 pro- 
grams with the numeric keypad. 
Keeping the keypad compatible could 
have been easily accomplished by 
simply paralleling the existing con- 
tacts. Actually, this would have been 
cheaper to implement than the 
scheme used. Apparently, Commo- 
dore felt the extra flexibility offered 
by the electrical separation was worth 
the extra effort. 


LAST BUT NOT LEAS’ 

Tucked away on the right side of 
the С-128, next to the on/off switch, 
is a small square push button. It is 
mounted flush with the surface, mak- 
ing accidental activation unlikely. 
This is a true hardware reset button. 
Pressed on its own, it will bring the 
C-128 back to its initial power up state 
in the current mode. In conjunction 
with the Commodore logo key, it will 
force a reset to C-64 mode. If the 
RUN/STOP key is held down, the 
С-128 will come up in the machine 
language monitor with the current 
BASIC program in memory intact! O 
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Rockets, Boats, 
and Pigs in Pokes 


Continued from page 28 
into the flag-bit register at HR. 


vz The lowest vertical position allowable on the screen, 
minus 1 

HZ The rightmost horizontal position allowable on the 
screen, minus 1. 

Үр The current vertical position (a number from 0 to VZ). 

HP The current horizontal position (a number from 0 


to HZ). 


In addition, Pig in a Poke uses several game-control 
variables: 


WSS This string contains all the fence units; segments 
are randomly selected to make each new fence 
moving up the screen 

КҮЛ This array determines the starting points for each 
difficulty level in selecting a segment of the fence 
to display 

RC Row count—how many blank lines have been in 
serted between fences. 

RI The total number of fences added to the screen 
so far. 

Dr The delay variable how many seconds should 
pass before the fences are scrolled upward. 

Di The difficulty level, or gap-width variable — how 
far into the string WSS the next fence should come 
from. Since gaps аге narrower and fences wider 
the farther you go into WSS, the higher this num- 
ber, the more difficult to get through the fence. 

DS The spacing between fences. It begins with five 


Make Your Home Secure апа Energywise 


... With Genesis Home Control Products 


blank lines between fences, then progresses to 
only one blank line before the program ends. 


K, Кіп), KP(n) In the main loop, these variables are used to in- 

terpret keypress data 

KP The current direction of movement. This is used 
with LT (n) and ST (n) to determine whether to dis- 
play the shape of a left-facing pig or the shape 
of a right-facing pig. 

At the beginning of Pig in а Poke, line 5 moves the 
top of BASIC memory below the video block at 32768. 
Then lines 10 through 13 send the program to four set- 
up routines. 

Video Memory Set-Up. Lines 600-604 tell the VIC-2 
to find the video block at 32768, and where within that 
block the VIC-2 and BASIC can find screen memory. 

Lines 610-634 assign the addresses of various regis- 
ters to the variables listed above. Lines 636-637 set up 
the set-bit and clear-bit arrays. 

Lines 640-654 set the initial values of most registers, 
If you want to experiment, change these at will and see 
how they affect the game. 

Lines 690-696 disable the SHIFT/COMMODORE 
RUN-STOP/RESTORE interrupts. This is because 
SHIFT and COMMODORE are used for left and right 
movement in the game, and we don’t want the character 
set shifting back and forth; and because video memory 
has been relocated, a RU ГОР/КЕЅТОКЕ would 
cause the machine to become virtually unusable. 


At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your home safer and more energy efficient while increasing your personal convenience. 


The Genesis ViController allows you to control up to 2: 


lights and appliances throughout your home using standard BSR 


receiver modules. With the included software, you can create dally and weekly control schedules. 
Your system can be expanded by adding Genesis’ COMsense input device, Super 


Schedule Plus software, and available sensors. Commands can 


then be issued in response to on/off inputs such as the 
opening of a door or analog inputs such as a change in 
light level. By adding COMclock, a crystal 

controlled clock/calendar, your system will 

have an accurate, battery 

backed-up time base. 

COMclock's Autoboot ROM 

acts as a failsafe restart for 

the system in the event of 

а power failure 


Sold separately the ViController, 
COMsense and COMclock 
sell for $69.95 each and 


PACKAGE for only $199.95. 


the Super Schedule Plus software sells for $19.95. All four products are available together in our HOME CONTROL 


Call 215-861-0850 to order direct or contact your local dealer. 


Reader Service No. 134 
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Background Preparation. Lines 700 to 730 set up the 
wall string WSS and the variable WL(n), which controls 
the starting points for random wall segments at different 
difficulty levels. Line 740 sets the initial difficulty lev- 
els. DL should start at 0. DT is the number of seconds 
the program waits before inserting rows. A value of 0 
is too fast to play. DS is the number of spaces between 
TOWS at the beginning. You have to make sure the game 
ends before the program drops the value of DS below 
0 —this will cause a program-crashing error. 

Sprite Shape. Lines 800-808 read the strings of sprite 
data, and interpret them so that they can be POKEd into 
sprite shape blocks in the correct order. If you change 
the shapes, make sure that each string has 24 characters 
and there are as many rows as are called for by the vari- 
able TS plus 1. If TS=9, then there must be ten strings 
of sprite information per shape. There must also be as 
many shapes as are called for by NS plus 1, so that if 
№ =], there must be 2 whole sprite shapes. 

Sprite Positioning. Line 900 sets the number of ver- 
tical and horizontal positions that will be allowed, and 
DIMensions the applicable arrays. 

Lines 902-904 set the horizontal position values, start- 
ing with the leftmost position, 24, and increasing each 
position by 2. Line 906 sets the vertical positions, start- 
ing at 53 and increasing each position by 8. 

Lines 920-922 set up the variables used in interpreting 
keypresses. KP(n) is indexed by the raw keypress at lo- 
cation 653. Values that mean nothing are set to 2; a key- 
press calling for left movement is set to 0, for right move- 
ments, to 1. The keypress that calls for the end of the 
game (SHIFT/COMMODORE/CTRL) is set to 3. These 
will be interpreted in the main loop, 

K(n) has only two possible values: K(0)=—1 and К(1) 
-1. When indexed by KP(n), these values will be added 
to or subtracted from the current horizontal position (HP) 
of the sprite. 

Lines 930-931 set the initial sprite position and POKE 
it into the proper registers. Line 940 POKES the current 
shape block code into the sprite location register. 

Lines 950-960 set up the initial playfield screen. Line 
960 is especially important, because if it were not done, 
the screen would scroll two lines at a time each time a 
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fence was moved off the top of the screen. 

Lines 970-990 clear the collision registers and set the 
timer back to 0. 

Main Loop. After the set-up subroutines are ехеси- 
ted, the program jumps to the main loop. Line 100 reads 
the keyboard for SHIFT, COMMODORE, and CTRL 
keypresses. If the end of the game is called for, the pro- 
gram jumps to the End-of-game routine at 300. 

Line 105 checks for meaningless keypresses and ig- 
nores them. Line 110-115 change the horizontal position, 
depending on the keypress, and cause the pig to "wrap 
around" if he goes off the edge of the screen. 

Line 120 checks to see if the pig has changed direc- 
tion. If he has, the sprite shape location register is changed 
accordingly. Line 125 POKEs the new horizontal posi- 
tion into the two registers affected. 

Line 130 checks the timer to see if it's time to scroll 
the screen. Line 135 checks to see if the player has moved 
the pig so it bumps into a fence. 

Ending Routines, Lines 300-315 display the end of 
game messages, indicating the score, which gives points 
for the number of fences displayed before the end and 
how low the pig was on the screen at the end. Then they 
move the pig down to the middle of the screen. Line 320 
checks for a keypress; if Q is pressed, the program jumps 
to 370, the end-of-game routine. 

Lines 325-330 cause the pig to move along the screen 
continuously while the program waits for the player to 
input a choice. Line 345 keeps the program looping 
through the pig's movement unless the player has pressed 
P to play again, in which case line 350 resets the initial 
variables and goes back to line 100 for the next game. 

Lines 370-390 put video memory back to normal and 
reenable all the key combinations that were disabled be- 
fore; then the program ENDs. 

Collision Handling. This routine is only executed if 
a collision has already taken place. It bounces the pig 
up to the next valid vertical position. Then it clears the 
collision registers and checks again to see if the pig is 
still touching a fence, in which case it starts over again, 
bouncing the pig up still one more row, If the vertical 
position, VP, is ever higher than the top of the screen, 
EG is set to 1, which will end the game when the main 
loop is executed again. 

Scrolling Routines. If we're between fences (RC < DS). 
then line 502 PRINTS enough cursor-down characters to 
cause the screen to scroll up one line. The fence-adding 
routine is skipped. 

Lines 506-508 select a new fence segment, PRINT it, 
and then advance all the counters, changing the difficul- 
ty level if necessary. Line 510 checks to see if the maxi- 
mum number of rows has been added. Right now the 
game is set up to PRINT 50 new rows on the screen be- 
fore it ends. 

Line 520 checks for collisions. Line 580 clears the 
screen line link table so the screen will only scroll one 
line at a time. Then the timer is reset. ГІ 

SEE PROGRAM LISTINGS ON PAGE 95 
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СОММОЮОСІЗЕ ROOTS 


ADDRESSING 
THE COMMODORE, PART II 


The Second of Two Columns on Assembly Language Addressing 
By Mark Andrews 


ooking for a byte of data in a computer is 

something like looking for a street address 

in a large city. If you don't know the city 

and don't have a map, the task is virtually 

impossible. If you can find a map, it helps. 
And with or without a map, the job gets easier as you 
learn your way around. 

Last month, we saw how a set of programming tools 
called addressing modes can be used to retrieve data from 
memory (and store data in memory) in Commodore 64/ 
Commodore 128 assembly language. In case you missed 
that column, here's a brief review: 

‘There are 13 addressing modes in C-64/C-128 assembly 
language. Of these, one of the simplest (and most com- 
monly used) is absolute addressing. Using the absolute 
addressing mode is like going straight to a street address 
that someone has given you, and immediately finding 
what you're looking for. 

This is the format used for writing a statement using 
absolute addressing in C-64/C-128 assembly language: 


LDA $1234 


The above statement means, “Load the accumulator 
with the content of memory address 512347 If this state- 
ment were encountered in an assembly language program, 
the contents of the Memory Address $1234 would be 
loaded into the 6510/8502 accumulator, the main internal 
register in the main microprocessor of a C-64 or a C-I28. 
(As you may recall from previous columns, loading a 
value into the 6510/8502 accumulator is the initial step 
in many different kinds of assembly language operations. 
As you may also remember, the “57 sign in front of the 
number 1234 means that it's a hexadecimal number.) 


INDEXED ADDRESSING 

A slightly more complex addressing mode is called 
indexed addressing. Using it Ке using a street ad- 
dress to find an apartment building, and then using an 
apartment number to find an apartment in that building. 
Ina statement written using indexed addressing, the in- 
struction specifies both an address and an index register 


http: 


(either the X register or the Y register, if you're program- 
ming in С-64/С-128 assembly language). The value of 
the index register is then added to the specified address, 
and the sum of addition operation is the final ad- 
dress of the instruction. 

Indexed addressing is often used in loops that are de- 
signed to retrieve bytes of data in succession from data 

5. Since the X and Y registers are often used as coun- 

uch loops, they have been provided with a spe- 
cial set of instructions that enable them to be incremented 
and decremented very easily. There are also instructions 
that can be used to compare the values of the X and Y 
registers with other values, These comparison instructions 
are often quite useful in determining the boundaries of 
data tables. 

In C-64/C-128 assembly language, this is the format 
for writing a statement using indexed addressing: 


LDA $1234,X 


А PROGRAM ILLUSTRATING INDEXED ADDRESSING 

The Quest, found on page 100 of the program listings 
section, illustrates the technique of indexed addressing. 
The program was written using the Commodore 64 Macro 
Assembler, but can be easily modified to work with other 
assemblers. 

One feature of The Quest we have not encountered until 
now is a directive, or pseudo-op, in Lines 10 to 130.This 
directive is written “BYTE” in programs created with 
the Commodore 64 Assembler. If you own a Merlin 64, 
use the Merlin equivalent of this directive, which is DFB. 
If you own a Panther C-64 the equivalent is DFC. 

The .BYTE/DFB/DFC directive is sometimes called 
a pseudo-operation code, or pseudo-op, because it ap- 
pears in the op-code column of assembly language source 
code listing but is not actually a part of the 6510/8502 
assembly language instruction set. Instead, it's a special- 
ized directive that varies in format from assembler to as- 
sembler. Many other pseudo-ops have formats that differ 
from one assembler to another, because there are no gen- 
erally accepted standards for writing pseudo-op directives. 

When the “BYTE” directive (or one of its equiv- 
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alents) is used in a program, the bytes that follow are 
assembled into consecutive locations in RAM. In The 
Quest, the bytes that follow the label TEXT are ASCII 
codes for a series of text characters— as you will see 
when you type and run the program. 

In The Quest, the X register is used as an index register. 
In Line 150, the X register is loaded with a zero. Then 
in Line 170, indirect addressing is used to load the ac- 
cumulator with the first byte of the data segment labeled 
TEXT, plus the value of the X register. Since the value 
of the X register starts out as zero, the first value that 
will be loaded into the accumulator is the first byte of 
the line labeled TEXT, which is the number 87—or the 
ASCII code for the letter “W”. So, in Line 180, the routine 
CHROUT (a screen-printing subroutine built into the 
C-64/C-I28 operating system, or Kernal), will print a "W^ 
оп the screen. 

Next, in Line 190, the instruction INX ("increment the 
X register”) is used to increment the value of the X reg- 
ister. Then in Line 200, the value of the X register is 
compared with the number 23 —the length, in bytes, of 
the text string being printed on the screen. If 23 charac- 
ters have not yet been printed, the program cycles back 
to Line 170, labeled LOOP, and the next character is 
printed. Finally, when all 23 characters have been printed, 
the program ends. 


4 

~ $5.00 

The IEA Instant Editor Assembler 
is now on SALE for only $5.00 

plus $2.00 postage and handling 


Written in 100% machine language H 


Compatable with HES MON 
SLOW MOTION code analyzer 
Technical assistance number 


Assembles 17k source in 5 seconds 
Coresident Editor Assembler Monitor. 


$9.95 each!!! 
for the Commodore 64 
BLACKJACK GIN RUMMY 
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PYSCO SOFTWARE 
Box 301 Bristol, CT 06010 


WANTED 


COMMODORE 64 computers and 1541 Disk 
Drives; $75 for those in working condition. 
Please call 205-221-5211 


AD 
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INDIRECT ADDRESSING 

Indirect addressing is a form of indexed addressing 
slightly more complex than the simple, no-frills indexed 
addressing used in The Quest. When indirect addressing 
is used in an assembly language program, the contents 
of a pair of memory addresses —rather than the address- 
es themselves — аге added to the value of an index register. 
The sum is then used as the final address of an instruction. 

Indirect addressing could be compared to a situation 
in which several persons need to get to a meeting each 
week, but are never sure where the meeting is being held 
because its location changes from time to time. One solu- 
tion would be to direct everyone to the same address every 
week, and let them know in advance where to look when 
they arrived—under the doormat, for example—for a note 
containing the address of that week's meeting. 

In 6510/8502 assembly language, indirect addressing 
is often used when rapid changes must be made in data 
being accessed by a program. If indirect addressing did 
not exist, huge blocks of data would often have to be 
moved into and out of programs in real time, resulting 
in tremendous delays in processing. Fortunately, the ex- 
istence of indirect addressing can usually eliminate this 
problem. In a program that uses indirect addressing, it 
is not usually necessary to incorporate large blocks of 
data into the body of a program, and to move them around 
in memory when one block of data must be exchanged 


| with another. Instead, the address of a block of data can 


be used in a program. Then, when it is time to replace 
that block of data with another block, all a programmer 
has to do is substitute the address of the new block of 
data for the address of the old one. In this way, by 
changing only a few bytes of memory during the execu- 
tion of a program, an assembly language programmer 
can juggle blocks of data that are hundreds, or even thou- 
sands, of bytes long in a tiny fraction of the time it would 
take to move one whole block of data out of a section 
of memory and then move another block of data in. 

Actually, there are two indirect-addressing modes in 
6510/8502 assembly language: indexed indirect addressing 
and indirect indexed addressing. As mentioned last 
month, one way to keep these two confusing terms straight 
is to remember that the word “indexed,” which contains 
an “X7 is the first word in the term “indexed indirect 
addressing"- the form that uses the X register. And the 
other mode—indirect indexed addressing —is the mode 
that makes use of the Y register. 

Both indexed indirect addressing and indirect indexed 
addressing have one unfortunate limitation: they can be 
used only with zero-page addresses, that is, with memory 
locations that have addresses ranging from 5ОО to 5ЕЕ 
(or from 0 to 255 in decimal notation). Much more will 
be said about zero-page addresses in later columns, but 
this is all we need to know about them right now: since 
there are only 256 such addresses in the memory space 
of a Commodore computer—and since most of those are 
used by the Commodore's BASIC interpreter and oper- 
ating system—the zero-page memory requirements of 
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indirect addressing place rather severe restrictions on the 
use of indirect addressing in user-written programs. These 
restrictions are especially severe in the case of indexed 
indirect addressing, because indexed indirect addressing 
can be used only with address tables that are located in 
their entirety on Page Zero. Because of this limitation, 
indexed indirect addressing is not often employed in 
user-written programs. It is a good idea to know how 
it works, however, since it is sometimes encountered in 
ROM routines, and can even come in handy now and 
then in user-written programs, provided that the necessary 
space on Page Zero can be found. 


INDEXED INDIRECT ADDRESSING 
When indexed indirect addressing is used in a program, 
the format is: 


LDA ($FB,X) 


If the above statement appeared in an assembly lan- 
guage program, the value of the X register would be 
added to the value of SFB. The resulting sum would then 
be interpreted as another address. However, the accum- 
ulator would not be loaded with the value of that address, 
Instead, the content of that address, and the content of 
the following address, would be interpreted as still another 


address. In other words, the indexed address would be 
used as a pointer to still another address. And that would 
be the final address of the instruction LDA. 

As an illustration of this concept, let us assume that 
the X register contained the value 2 when the statement 
“LDA (SFB,X)" was encountered іп a program. First, 
the number $02 —the value of X register—would be added 
to the value $FB. The sum of this calculation would, of 
course, be SFD. And the content of that address—plus 
the content of the following address, $FE—would point 
to the final address to be accessed by the mnemonic LDA. 

Now let us suppose the 16-bit value of $1234 were 
stored in the zero-page pointers SFD and $FE. Since the 
low byte of a 16-bit value always comes first in 6510/8502 
assembly language, the contents of page-zero pointers 
SFD and $FE would thus be as follows: 


ADDRESS CONTENT 
SFD $34 
SFE 512 


Now let us suppose that the value SCOO0 were stored 
in memory address $1234. If the value of $1234 were 
stored in page-zero pointers $FD and $FE, as illustrated 
above, the 16-bit value contained іп SFD and $FE would 


contain, or point to, the address 51234. So the final ef- 


CARTRIDGE-MAKER-64" ~ 


Create your own COMMODORE-64 Video game and program cartridges! 


Easy Menu-Driven instructions allow you to: 


O Copy your BASIC or ASSEMBLER 
programs to cartridge 


O Copy from cartridge to cartridge 
П Сору your cartridge to diskette or cassette 


O Erase and reuse cartridge 
О Create Autostart cartridges without the 
need to be skilled in machine language. 


CARTRIDGE-MAKER-64 ......... $129.00 
CARTRIDGE-ERASER .. ... $59.00 
CARTRIDGE-64 (16K) .. . $25.00 
CARTRIDGE-MAKER SYSTEM $189.00 
Includes CARTRIDGE -MAKER-64, CARTRIDGE-ERASER, 
and 1 Blank CARTRIDGE-64 (16K each) 
Purchase of 5 Blank 
CARTRIDGE-64's (16K each).. $115.00 
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fect of the statement “LDA (5ЕВ,Х)” would be to load 
the accumulator with the value 5С000. 


INDIRECT INDEXED ADDRESSING 

Indirect indexed addressing is more versatile—and 
therefore more useful—than is indexed indirect address- 
ing. When indirect indexed addressing is used to retrieve 
a value from a table or a block of data, only two bytes 
of valuable zero-page address space are needed. (In con- 
trast, in the indexed indirect addressing mode, a whole 
table of address pointers must reside on Page Zero.) 
Therefore, indirect indexed addressing is used much more 
often in user-written programs than is indexed addressing. 

The format of a statement that uses indirect indexed 
addressing is: 


LDA ($FB),Y 


In the above statement, it is worthwhile to note that 
while parentheses enclose the address $FB, the "Y" which 
Tepresents the Y register lies outside the parentheses. This 
is important to remember, since it means that in indirect 
indexed addressing, the value of the Y register is used 
not to index the address 5ЕВ, but rather to m the con- 
tent of the address SFB. 

Now let us return to the statement “LDA ($FB),Y”. If 
this statement were encountered in an assembly language 
program, the content of memory address $FB, plus the 
content of the following memory address — that is, $FC— 
would be interpreted as a memory address. Next, the val- 
ue of the Y register would be added to that address. And 
finally, the accumulator would be loaded with the con- 
tent of that final address. In other words, the 16-bit val- 
ue stored in the addresses SFB and SFC would be used 
as a pointer to indicate the final address of the instruc- 
tion LDA. 

То more clearly illustrate how indirect indexed address- 
ing works, let us assume that memory addi s SFB 
and $FC held the address $1234 when the statement “LDA 
(SFB),Y was encountered. Since the low byte of a 16-bit 
value always comes first in 6510/8502 assembly language, 
the contents of memory addresses $FB and $FC would 
thus be as follows: 


ADDRESS CONTENT 
SFB $34 
SFC 512 


Now let us suppose that the Ү register contained а 2 
when the statement “LDA (5ЕВ),У” appeared. In this 
event, the number $02—the value of the Y register— 
would be added to the 16-bit address $1234. The sum 
of this calculation would, of course, be 51236. So the 
content of memory address $1236 would be interpreted 
as the final address to be accessed by the mnemonic LDA. 

Finally, let us suppose that the value SFOAC were stored 


in memory address $1236. If this were the case, the final 
effect of the statement “LDA ($FB),Y” would be to load 
the accumulator with the value SFOAC. 


IMPROVING THE QUEST 

Before I sign off this month, Td like to direct your at- 
tention to another program, Response, which appears af- 
ter The Quest in the program listings section of this issue 
(see page 100). Response works somewhat like The Quest, 
but demonstrates а few more programming techniques — 
and, in addition, provides an answer to the riddle pre- 
sented in The Quest. 

In Line 130, insted of using ASCII codes to represent 
typed characters, Response uses a pair of delimiters to 
enclose a real string of typed characters—a feature рго- 
vided in one form or another by most assemblers, i 
cluding the Commodore 64 Assembler, the Merlin 64, 
and the Panther C-64. 

At the end of this text string, however, there is one 
ASCII code: the number 13, which equates to an end- 
of-line (or “EOL’) character. (An ASCII code had to be 
used here, since typing an actual return character would 
cause the assembler to move on to another line.) 

In Lines 150 through 210 of Response, a text buffer 
(created in Line 510) is filled, or “stuffed,” with blank 
characters, or spaces. Next, in Lines 250 through 320, 
an X loop is used to place the text string in Line 130 
in the now-empty text buffer. Then, in Lines 360 through 
460, the message in the buffer is printed on the screen. 

The loop that prints the message works somewhat dif- 
ferently than the printing loop used in The Quest; in- 
stead of counting the number of characters in the text 
string which is being used, this loop keeps checking the 
accumulator for the presence of an end-of-line character. 
If no EOL character is detected, the program loops back 
to Line 370, and prints the next letter on the screen, When 
the EOL character that ends the text string is finally 
found, the program ends. 


WHAT'S AHEAD 


Next month's column will include the most advanced 
type-and-run program that has been presented in this 
space so far. Called The Name Game, it is an interac- 
tive game that will demonstrate the use of indirect in- 
dexed addressing, and do a bit more, too. The Name 
Game, which I have used for years to demonstrate cer- 
tain programming principles, is a simple interactive game 
in which the player converses with the computer. It will 
not only print messages on the screen, it will also ас- 
сері typed-in text, and print that on the screen, too. It 
will then compare the data that is typed in with a string 
of data stored in a buffer—and will use this comparison 
to determine the outcome of the game, So—see you in 
next month's column. O 

SEE PROGRAM LISTINGS 


All the programs in Ahoy! are available on 
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COLUMN 


FOR BEGINNING USERS OF THE COMMODORE COMPUTE! 


ommodore' s figures for Christmas 

1984 showed as many disk drive sales 

as Commodore 64 sales. So it's a safe bet 

that most of you have already upgraded 

your systems to include this much-needed 
peripheral. That's great, because most of this month's col- 
umn is going to concern the disk drive. For those of you 
who don't have drives, read this installment to find out 
some of the reasons for getting one, With the prices be- 
ing dropped (Туе seen them as low as 5159), now may 
be the time to buy. 

Despite complaints about the 15415 speed, it's a vast 
improvement over tape. Having used a disk drive from 
the very beginning, І can't even contemplate ing for 
a tape program to load. Only twice have I been in a situa- 
tion desperate enough to warrant using the cassette drive, 
and both times I was elated to go back to my disk. 


DISK BASICS 

Although they may seem obvious to experienced disk 
users, there are some basic facts about using a disk bas- 
ed system that you should know. And dont think just be- 
cause you've been around, you know everything. 

Case in point: a professional musician who uses an 
electronic synthesizer calls my husband (who repairs elec- 
tronic equipment). Since it's fairly late in the evening, 
my husband is reluctant to run across town. The prob- 
lem is eventually traced to the disk drive in the synthe- 
sizer. In a brilliant flash of insight my husband asks, "Do 
you have the drive sitting on a speaker cabinet?" He did! 
Although moving the drive did not entirely solve the prob- 
lem, the incident does demonstrate that even experienced 
users sometimes forget the basics. 

Disks (and to a much lesser extent, drives) are sus- 
ceptible to magnetic fields. A computer diskette is noth- 
ing more than a round recording tape; a piece of plastic 
with an iron oxide coating melded to it. Data is stored 
on the disk by polarizing the magnetic fields of the iron 
ions. If you take a disk and place it in an area where 
there is a high magnetic field (for instance, around speak- 
ers connected to stereo systems), it is entirely possible 
that you will erase the disk or scramble the data. 

The plastic on which the iron is mounted is similar 
to that used in record albums. Heat can warp the plastic 
and cold can make it brittle. At sufficiently low temper- 
atures, the iron oxide loses its bond to the plastic and 
there goes your data. 

Disk sleeves were made to be used. Please don't throw 
them away. The keeper of our user group library never 
could see any reason to take up extra space in files by 
leaving the jackets on the disks. After about six months 
of rubbing together, the oxide started falling off, and the 
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— By Cheryl Peterson 


entire library (some 120 disks worth) had to be recopied 
onto new disks. Besides the expense of buying more disks, 
it took days to make the new copies. 

What I'm trying to point out is that disks are fragile. 
Even the best disks will wear out eventually, But if you 
treat them right, they can last for several years. Disks 
that see heavy use may only last a year, but that’s why 
you always keep backup disks, right?! 

A good rule of thumb is to make a backup copy оѓ 
the file in which you are working at least once every half 
hour. This way you never lose more than 30 minutes of 
work. Frequently, the backup copy is on the same disk 
as the original. Most word processors and other heavy 
use software have a save and continue working feature 
that will quickly create a duplicate of the file so far and 
then let you continue where you left off. This is your 
first backup. 

At day's end, it's a good practice to use а copy program 
to make a duplicate of each disk modified that day. (These 
copies should be made on disks that will be stored sep- 
arately from those you use each day.) If you are doing 
anything more important than writing letters to goldfish, 
a safety is a necessity. І hope to compare a few of the 
commercial copy programs in a future column. Fast Load 
has such a program built into it. 


ORGANIZATION 

Most beginners don't have any idea how fast the disks 
collect. With a typical family, before you know it, you'll 
have disks with programs written in BASIC, COMAL, 
PASCAL, machine language, or any combination thereof. 
You'll have databases, letters created with different word 
processors, songs written with music processors, sprites 
made with sprite generators, pictures created with a va- 
riety of graphics packages, and data disks that track your 
progress with the very latest in adventure games. 

And all of them will have cryptic labels that list about 


101) And if you've been making safe- 
ties like you should, whew! 

Now for the good news! You, as beginners, are in the 
perfect position to nip this problem in the bud. Start out 
with some plan for labeling disks. Everyone who uses 
the computer should help come up with a logical system. 
for organizing disks. I recommend using disknames that. 
key the data to whatever disk was used to create it and 
then a general category type. 

For instance: 

WN!Personal Let.JA 

WN!Personal Let.FB 

WN!Business Let.01 
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BSWTom Creative WR 
BSWSusan Book КО! 
BSWSusan Book R.02 
Ahoy! PRG Files.01 
CompuServe Down.01 
Cher PRG Games.01 


` With a little imagination, these disknames can identi- 

fy the 
ters, JA 5 
er, WR=Writing, R=Reports, PRG=program files, 
Down=Downloaded files. Tom, Susan, and Cher are 
family members who regularly use the disk. 

It took me three days to organize the mess that six 
months of haphazard disk and file naming had created. 
Oh, how I wished someone had warned me to be organ- 
ized from the beginning. 

Even with organization, it can still be tough to find 
а particular file that you haven't looked at for months. 
A good disk catalog program will really help here. I've 
seen one that costs about $30 and includes an option to 
print labels. 


MACH 5's DISK CATALOG PROGRAM 

For my money, I'd get Access Software's Mach 5 сап- 
ridge instead. Although it doesn't print labels, its fea- 
tures are almost indispensible. Besides speeding up disk 
access, Mach 5 enables a catalog program that comes 
on disk. 


Another option lets you view or print a li ting of the 
disks in a catalog (see figure 2). This i: 
ful at the beginning of your catalog, 
much free space each disk has. Ever wonder which of 
your disks has enough room for a 20 block file and spend 
half an hour swapping disks in and out to find one? With 
this program, you never will. 

To update a listing, you delete modified disks by en- 
tering their disknames. It isn't necessary to delete each 
file name; the program automatically finds each one as- 
sociated with a deleted diskname and removes it. Then 
you use the "Add a disk function" to update the files. 

There's even an option to change а diskname without 
having to reformat the whole disk (something I've seen 
no other program do). if you're a few months along 
in "haphazard" mode, її too late to start getting or- 
ganized with Mach 5. 

One big hassle facing new drive users is learning the 
„ load, format, initialize, and validate com- 

. A disk provided with the drives contains a DOS 
(Disk Operating System) wedge that is supposed to make 
using these features easier. The wedge must be loaded 
before using it, however. Mach 5 has a built in DOS 
wedge, accessible from BASIC. Ве; e it is on cart- 
ridge, though, Mach 5's DOS doesn't have to be loaded 
from BASIC. The command structure looks much like 
that of the Commodore DOS wedge, so the commands 
aren't confusing to more experienced users. 

Beginners may not be aware that before you can use 
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e File File Disk Starting Starting Entry 
Name Type Size Name Track Sector Order 
1 SEQ 1 fourth 24 3 4 
ES PRG 1 fifth 11 0 5 
211ҒЕ SEQ 3 fifth 19 2 5 
= PRG 1 write now! 20 7 6 
e PRG 1 first 23 18 2 
ahoy!.bak SEQ 1 mj data 20 18 11 
ahoy!.rev SEQ 1 mj data 20 17 11 
alphaloop.o PRG 1 assembly 16 4 9 
alphaloop.s PRG 1 assembly 16 3 9 


FIGURE 1 (top): a Mach 5-generated disk directory. 
FIGURE 2 (right): list of disks in Mach 5 catalog. 


And is it a dandy! After creating a data disk for your 
catalog to reside on, you just swap in a disk whose di- 
rectory you want added to the catalog. Take that disk out 
and put the catalog data disk back in. That's about it. 

Each disk that you want added is swapped in. When 
you get them all entered, a sort routine in the program 
will alphabetize them. The printout looks great! (see fig- 
ure 1). Not only do you know where to find the file you're 
looking for, you can see how big it is. I usually keep 
a printout of the catalog in a binder, next to my disk files. 
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ledger data file Free Sectors 


first Free Sectors = 423 
second Free Sectors = 574 
fourth Free Sectors - 333 
fifth Free Sectors = 197 
б write now! Free Sectors = 517 
okB Free Sectors = 635 
ок? Free Sectors = 632 
assembly Free Sectors = 604 
data Free Sectors = 641 
mj data Free Sectors = 508 
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A membership |) 
а in the world's 
largest 
Commodore % | 
users’ group 4 (i 
will provide 
you with: 


% 10 issues of TPUG magazine 

Advice from experts like Jim Butterfield and Elizabeth Deal 

* Access to a huge library of outstanding public domain software 

* Aninvitation to attend the Annual TPUG conference, May 25 and 26 
in Toronto, Canada, with two full days of seminars on all aspects of 
Commodore computing 


JOIN NOW! 


| would like to join ТРОС as an associate member at a cost of US$2500. 
Send your cheque, money order or credit card number to: 

TPUG Inc., 

1912A Avenue Road, 

Toronto, Ontario, Canada 

MSM 4A1 


О Cheque Money Order Credit Card ——— Amount in US funds $ ” 
ney 


Credit Card # - Expiry date Signature ___ 


Type of Computer Disk Drive Printer Modem Other 


Reader Service No. 162 


а disk with the Commodore drive, it must be formatted. 
This two-minute process requires typing the command 
line (in BASIC): 


PRINT£15, "МЕМО: МАМЕ, ID" 


where "name,id" is the diskname and identification code. 
If the DOS wedge is loaded or the Mach 5 cartridge is 
in, you can type @ instead of PRINTZIS. 

Even without its quick loading features, Mach 5 is an 
excellent package. And at $34.95, it's a bargain, too. 


TIPS ON BUYING SOFTWARE 

Although I don't buy software often, there are a few 
tricks I've picked up along the way that I'll pass on to 
you. (Don't be surprised if they don't agree with any- 
thing you've heard elsewhere.) 

Before deciding ю buy any productivity" type soft- 
ware, check back issues of magazines for buyer's guides 
and indepth reviews. Make a list of the features you def- 
initely need and those you'd like to have if the price isn't 
too high. Be careful not to pay exorbitant prices for “bells 
and whistles" you don't need or want. 

Read as many current Commodore magazines as you 
сап get your hands on. Don't be an indiscriminate read- 
er; look for useful buying information. Read magazines 
with a pen in your hand and a pile of note cards sitting 
next to you. If the family's decided to buy a word pro- 
cessing program in the next couple of weeks, make notes. 
ments: software name and 
manufacturer, what features are offered, asking pric 
page and magazine of advertisement. If you see a p; 
age that interests you, look for the discounted price be- 
ing offered by mail order firms. 

Mind you, I didn't recommend buying it from a mail 
order company. Find a local dealer who doesnt mind 
letting you hang around the store. Hang around. Try out 
the software you're interested in. Try it on a system sim- 
ilar to yours. Be sure the package will work with 
hardware combinations. What kind of printer, ішегі 
modem, or input devices do you need? Does that 
ware need a high resolution or low resolution light pen? 

While you're in the store, check the prices of disks. 
Even if you don't find the software you want, you can 
always use a few more disks and the store owner may 
be running a sale. Youd be surprised at the number of 
times I've walked out of a store empty-handed only to 
discover two days later that I had only one clean disk left. 

Before buying, compare prices realistically. 

Most mail order places now add a three to four per 
cent surcharge to credit card orders or a three to five 
dollar charge for COD. On top of that, there's a three 
dollar to five per cent shipping and handling charge. By 
the time you add it all up, you may only be saving a cou- 
ple of dollars. 

Then there's the waiting. If you buy software at a lo- 
cal store, it's yours when you walk out. You run right 
home and use it. Not so with mail order. If you рау by 
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check, there's a two week wait while it clears. Discoun- 
ters advertise some products that are not in stock, since 
magazine ads must be placed two to three months in ad- 
vance. A particularly popular package may be tempor- 
arily sold out, as well. Even if it is in stock, UPS gen- 
erally takes 5 to 8 days to deliver. 

Though mail order companies must ship your order 
within 30 days or inform you of the delay and offer to 
refund your money, they are not required to pay you in- 
terest on your money while they hold it. If there's a chance 
the software will come in a future shipment, they'll usu- 
ally advise you to wait another couple of weeks before 
requesting a refund. After all, it takes the accounting de- 
partment a couple of weeks to issue a refund check. 

For your two dollar savings, you've given away the op- 
portunity to take the software back to the store for a cred- 
it if it doesn't work. Since most local dealers want to keep 
your business, they'll try very hard to make you happy. 
Usually all you need do is bring the software back and 
show that it doesn't work on their computers, either. 
ау lead to finding you actually have a hardware 
problem, or it could get you another copy of the soft- 
ware. At the very least, if the software won't load, most 
stores will give you a credit against any other merchan- 
dise you want to buy. Refunds are almost unheard of, 
no matter where you buy. 

If you bought from a discount house, you can be almost 
guaranteed hassles. Don't hold your breath while wait- 
ing for most mail order houses to issue a return authori- 
zation number. Did I mention that you'll have to call on 
their user support line, so you get to pay long distance 
5? 800 numbers are for orders only. When you do 
get permission to send it back, you go stand in line at 
the post office to send the package "Return receipt re- 
quested.” This way you get back a post card that con- 
firms that software company “XYZ” got the software. 

And wait, and wait, and wait. 

After several weeks, you may get a package with an- 
other copy of the software. If not, you call the company 
and hassle it out. 

With certain software manufacturers, this isn't neces- 
sary. They offer a warranty! You ship the faulty disks 
to their main office and they send you new ones that 
should work. Usually, it'll only cost you another five dol- 
lars more plus shipping. Don't forget "Return receipt re- 
quested.” And should the problem be hardware related, 
the new disks won't work, either. 

So don't be so sure mail order is really cheaper. It may 
save a couple of dollars initially, but you'll probably pay 
for it in waiting time later. 

Buying software can be a harrowing exercise. The best 
protection against disappointment is research. Magazines 
are a good starting point, but personal recommendations 
from friends or members of the local user group can lead 
to bargains. Try before you buy is still the best guaran- 
tee of satisfaction, though. 

Next month, a few words about fans, furniture, and 
other fun stuff. 0 


PROGRAM LISTINGS 


Attention new Ahoy! readers! You must read the following information very 
carefully prior to typing in programs listed in Ahoy! Certain Commodore 
characters, commands, and strings of characters and commands will appear in 
a special format. Follow the instructions and listing guide on this page. 


n the following pages you'll find several pro- 
grams that you can enter on your Commo- 
dore computer. But before doing so, read this 
entire page carefully. 

To insure clear reproductions, Ahoy!s program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Com- 
modore programs. These are therefore represented by 
various codes enclosed in brackets [ ]. For example: the 
SHIFT CLR/HOME command is represented o1 n 
by a heart Eg . The code we use in our listings is 
[CLEAR]. The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

Тһе other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two sym- 
bols. The symbol on the left is obtained by pressing that 
key while holding down the COMMODORE key; the 
symbol on the right, by pressing that key while holding 
down the SHIFT key. COMMODORE and SHIFT char- 
acters are represented in our listings by a lower-case “8” 
or "c" followed by the symbol of the key you must hit. 
COMMODORE J, for example, is represented by [c J], 


When 

You See M Meany You Type win 
CLEAR] Screen Clear SHIFT CLR HOME 
HOME] Home CLRIHOME 
UP] Curr Up SIET $ CRSR + 

[DOWN] Curar Dawn FCRSR V 

[LEFT] Cursor Left SHIRE m CORSI 
RIGHT] Curar Right оке 
55] Shifted Space МКТ Space 

[INSERT] ЕЕ SHIFT INST DEL 
DEL] Delete INSPDEL 
RVSON] Raren СТЫ 9 

[RVSOFF] Reverse ОП ENIRI. 0 

[UPARROW] Up Arrow + 
BACKARROW] Bach Леген - 
PI] Pi т 

[EP] English Mund t 
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and SHIFT J by [s J]. 

Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 “[LEFT]"] would be 3 CuRSoR left com- 
mands in a row, |5 “[s EP]"] would be 5 SHIFTed En- 
glish Pounds, and so on. Multiple blank spaces will be 
noted in similar fashion: e.g., 22 spi s [22 * "]. 

Sometimes you'll find a program line that's too long 
for the computer to pt (C-64 lines are a maximum 
of 80 characters, or 2 screen lines long; VIC 20 lines, 
a maximum of 88 characters, or 4 screen lines), To en- 
ter these lines, refer to the BASIC Command Abbrevia- 
tions Appendix in your User Manual, 

On the next page you'll find our Bug Repellent pro- 
grams for the VIC 20 and C-64. The version appropri- 
ate for your machine will help you proofread our pro- 
grams after you type them. (Please note: the Bug Repel- 
lent line codes that follow each program line, in the 
whited-out area, should лог be typed in. Sce the instruc- 
tions preceding each program.) 

Also on the following page you will find Flankspeed, 
our ML entry program, and instructions on its use. O 

Call Ahoy! at 212-239-0855 with any problems. 


————É——— == == a e 


Yu When You 
See Уш и Means Wu Туре Wal See 
Ej [BLACK] Black сәні E 
Eb [WHITE] White супа. 2 
Eb [RED] Red оша B 
Ш [cyan] Cyan. cma Ы 
MS PURPLE) Purple ons B 
Ш [GREEN] Green om. o Ы 
Ш [BLUE] Hive cm. Ы 
M [YELLOW] зам сохта s B 
И [n] Fonction 1 п B 
ШІ [r2] Function 2 sur n B 
Ш [кз] Function 3 n | 
Ж [r4] Function 4 sur on B 
= [rs] Function 5 ГЕ 
Я [re] Fonction 6 sur os E 
& [F7] Fonction 7 к 
[F8] Function 8 SHIFT ET 
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you wish to che 
listed above on 
those li 
error exists in that line. Important: you must use exact 
spacing as the program in the magazine. Due to memory 
on the VIC, the VIC Bug 
spacing varies from what 


IMPORTANT! 
BUG REPELLENT 


This program will let you debug any Ahoy! program. Follow in- 
structions for VIC 20 (cassette ог disk) or C-64 


VIC 20 VERSION 
By Michael Kleinert and David Barron 


For cassette: type in and save the Bug Repellent program. then 
type RUN 63000[RETURN]SYS 828[RETURN]. If you typed the 
program properly, it will generate a sct of two-letter line codes that 
Will match those listed to the right of the respective program lines. 

Once you've got a working Bug Repellent, type in the program 
re it and type the RUN and SYS commands 
compare the line codes generated to 
in the magazine, If you spot a discrepancy, a typing 


will register an error if your 
printed. 


You may type SYS 828 as many times as you wish, but if you 


use the cassette for anything, type RUN 63000 to restore the 
Repellent. 


When your program has been disinfected you may delete all lines 


from 63000 on. (Be sure the program you type doesn't include lines. 
above 63000!) 


[RETURN]. Type in the program you wish to check, then SYS 


828[RETURN] 


For disk: enter Bug Repellent, save it, and type RUN:NEW 
828, 


То pause the line codes listing. press SHIFT. 
То send the list to the printer type OPEN 4.4:CMD 4:SYS 
When the cursor comes back, type 


PRINT#4:CLOSE 4[RETURN]. 


63000 FORX«828T01023: READY : POKEX , Y: NEXT: END. 
*63001 
*63002 
*63003 
“63004. 
63005 
8 


*63006 
“63007 
+63008 
63009 
“63010 
,41 

“63011 
63012 
+63013 
"63014 
+63015 
63016 
“63017 
1 EL 
63018 
*63019 
“63020 DATA32,0,0,0,0,0 


AC 
DATA169,0,133,63,133,64,165,43,133,251 JL 
DATA165, 44,133, 252,160,,132,254,32, 228 DF 
DATA3, 234,177, 251,208,3,76,208,3,230 ОЕ 
DATA251, 208, 2, 230,252,169, 244,16,3,32 OH 
DATA30, 203, 160,9, 177,251,170, 230, 251,20 
ко 
DATA2,230,252,177,251,32,205,221,169,58 JJ 
DATA32, 219,255, 169,, 133,253, 23%, 254,32 OK 
DATA228, 3, 234,165,253, 160,0,170,177,251 LG 
DATA201,32, 24,6, 138,113, 251,69, 254,170 BP 
DATA138, 133, 253,177,251, 208, 226,165,253 


DATA240,74,74,74,74,24,105,65,32,210 

DATA255,165,253,41,15,24,105,65,32,210 
ПАТА255,169,13,32,210,255,173,141,2,41 PK 
DATAL, 208, 249, 230,63, 208 ;2, 230,64, 230 
DATA251 ,208, 2,230, 252,76, 74,3, 169,236 
DATA160,3,32,30,203,166,63,165,64,32 — DP 
DATA205, 221,169,13,32,210,255,96,230,25 


DATA208,2,230,252,96,0,76,73,78,69 
DATA83,58,32,0,76,73,78,69,32,35 


C-64 VERSION 


By Michael Kleinert and David Barron 


Туре in. SAVE. and RUN the Вик Repellent. Type NEW. then 


type in or LOAD the Алох program you wish to check. When that's 


to the right of the respec 
an error exists in th 
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your program (don't RUN it!) and type SYS 49152 


ui 
To pause the listing depress and hold the SHIFT key. 
Compare the codes your machine generates to the codes listed 
e program lines. И you spot a difference. 
linc. Jot down the number of lines where 
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Letters on white background are Bug Repellent line codes. Do not enter them! This and the preceding explain these 
Codes and provide other essential information on entering Ahoy! programs. Read these pages before entering programs. 


contradictions occur. LIST each line. spot the errors. and correct 


them. 
+5000 FORX=49152T049488: READY: POKEX, Y : NEXT :END GJ 
+5001 DATA32, 161,192, 165,43,133,251,165,44,133 DL 
+5002 DATA252,160,0,132,254,32,37,193,234,177 DB 
+5063 DATA251,208,3,76,138,192,230,251,208,2 ОҒ 
+5004 DATA230,252, 76,43, 192, 76,73,78,69,32 КМ 
+5005 DATA35, 32,0, 169,35,160,192,32,30,171 СА 
+5006 DATA160,0,177,251,170,230,251,208,2,230 CE 
«5007 DATA252,177,251,32,205,189,169,58,32,210 JE 
"5008 ПАТА255,169,0,133,253,230,254,32,37,193 CL 
+5009 DATA234,165,253,160,0,76,13,193,133,253 NB 
+5010 DATA177,251, 208,237 165,253, 41, 240, 74,74 MB 
*5011 DATA74,74,24,105,65,32,210,255,165,253 ЕР 
+5012 DATA41,15,24,105,65,32,210,255,169,13 GH 
+5013 DATA32, 220,192, 230,63, 208,2,230,64,230 АМ 
+5014 DATA251, 208,2, 230,252, 76,11,192,169,153 NG 
+5015 DATA169, 192,32, 30,171, 166,63,165,64,76 ВЕ 
+5016 DATA231,192, 96,76, 73,78, 69,83, 58,32 EP 
+5017 DATAO, 169,247,160, 192,32,39,171,169,3 РЈ 
+5018 DATAI33,254,32, 228,255,201 ,83,240,6,201 ЕК 
+5019 DATA8®, 208,245,230, 254,32, 210,255,169,4 FL 
+5020 DATA166, 254,169, 255,32, 186, 255, 169,,133 CL 
+5021 DATA63,133,64,133,2,32,189,255,32,192 С 
+5022 DATA255, 166, 254,32, 201,255, 76,73, 193,96 NN 
+5023 DATA32, 210,255,173, 141,2,41,1,208,249 МН 
+5024 DATA96, 32,205,189, 169,13,32,210,255,32 IM 
+5025 DATA204,255,169,4,76,195,255,147,83,07 КС 
+5026 DATAB2, 69,69, 78,32, 79,82,32,80,82 DC 
+5027 DATA73,78,84,69,82,32,63,32,0,76 ML 
+5028 DATA, 193,234,177,251,201,32,240,6,138 ОМ 
+5029 DATA113,251,69,254,170,138,76,88,192,0 ЈК 
+5030 DATAO,0,0,230, 251 ,208,2, 230,252 ,96' NA 
«5031 DATAI70,177,251,201,34,208,6,165,2,73 — DM 
+5032 DATA255,133,2,165,2,208,218,177,251,201 JA 
+5033 DATA32, 208,212,198, 254,76,29,193,0,169 ЕМ 
+5034 DATAL3, 76,219,255,0,0,0 PA 
PLAN FOR THE C-64 
By Gordon F. Wheat 
Flankspeed will allow you to enter machine 1; с Алох pro: 
grams without any mistakes. Once you have typed the program in. 
save it for future use. While entering an ML. prc 
Flankspeed there is no need to enter spaces or hit the e 
This is all done automatically. If you make an error in a li 
will ring and you will be asked t TT To LOAD in à 

with Flunkspeed use LOAD "пате". 1.1 for tape. 

R.J for disk. The function keys may be used alter 

iddresses have been entered 
have entered so far. 

R- LOADS ram worked on previously 
f5— To continue on a line you stopped on after LOADing in the 
previously saved work 
17 — Scans through the program to locate a particular line. or to find 
‘out where you stopped the last time you entered the program. (7 
temporarily freezes the output as well 
*5 РОКЕ53280,12:РОКЕ53281,11. LL 


+6 PRINT"[CLEAR][c 8][RVSON][15" JFLANKSPEEDD | 
159 "|"; 

+10 PRINT" 
ROGRAM[6' 

+15 PRINT"[RVSON][9" "]CREATED BY б. F. WHEATI 
gi "ү" 

+20 PRINT"[RVSON][3" "]COPR 


VSON][5" "]MISTAKEPROOF ML ENTRY A 


1984, ION INTERNA 


MC 


TIONAL INC.[3" "]" DH 
30 FORA=54272T054296:POKEA ,0: NEXT IM 
-40 POKE54272,4:POKE54273,48:; POKE54277 ,0: POKES 

4278,249:Р0КЕ54296,15 NH 
+70 FORA«680T0699 : READB: POKEA, B: NEXT ко 


“75 DATA169,251,166,253,164,254,32,216,255,96 HJ 
"76 DATA169,0,166,251,164,252,32,213,255,96 JB 
*BO B$="STARTING ADDRESS IN HEX":GOSUB2010:AD- 

B:SR=B HC 
+85 605082520): IFBeUTHENSO. ғо 
+86 РОКЕ251,Т(4)%Т(3)%16:РОКЕ252,Т(2)%Т(1)%16 KE 
+9) B$="ENDING ADDRESS IN HEX":GOSUB2910:EN=B IF 


+95 GOSUB2510: IFBeUTHENBO FP 
+96 POKE25A ,T(2)4T(1)*16: «T (4) 141 (3)*16 MN 
+97 IFB»255THENB«B-255:POKE254,PEEK(254)H GE 
+98 POKE253, B: PRINT HN 
+100 REM СЕТ HEX LINE IL 
+110 GOSUB3GlO:PRINT": [c P][LEFT]"; :ҒОВА=0Т08 FG 
+120 FORB=OTO1 : GOTO210) MD 
+125 NEXTB ME 
*130 A%(A)=T(1)4T(0)*16:1FAD+A-1=ENTHENSIO LH 
+135 PRINT" [с P)[LEFT]"; ІК 
+140 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " Р 
:150 FORA=(T07:T=T+A%(A):IFT>255THENT=T-255 LK 
+160 NEXT IA 
+170 TFA%(8)<>TTHENGOSUB1910:GOTOL1O FK 
+180 FORA«(/TO7 : POKEAD+A, AZ (A) NEXT: AD=AD+8:GOT 

0110 MN 
+200 REM СЕТ HEX INPUT AB 


4210 GETA$:IFA$=""THEN210 


+211 IFAS=CHRS(20)THEN270 GC 
*212 IFAS-CHRS(133)THENAQO MD 
*213 IFAS-CHRS(134)THEN4100 KF 
214 р, GE 
“215 BJ 
+220) IFA$»" E ANDAS«"GTHENT(B)sASC(AS) -55:GOTO 

250 бм 
+230) TFAS>"/"ANDAS<": "THENT(B)=ASC(AS )-48:GOTO 

250 LE 
+240 GOSUBI 100: GOTO210 LL 
+250 PRINTAS"[c P][LEFT]"; OA 
*260 6010125 cG 
+270 ТЕАУ/ТНЕУ280) ОР 
+272 А=-1:1ЕВ=1ТНЕ%290 
+274 С010140 CJ 
+28) IFBe/THENPRINTCHR$(20);CHR$(20);:AeA-1 НС 
+285 A-A-l BE 
+290 PRINTCHRS(20); :GOTO140 KH 
+30) REM LAST LINE AD 
+310 PRINT" ":T=AD-(INT(AD/256)*256) GJ 
+320 FORB=OTOA-1:T=T+A%(B):IFT>255THENT=T-255 PL 
+330 NEXT IA 
+340 TFAR(A)<>TTHENGOSUB1910:GOTO116 KF 
+350 FORB=(TOA-1:POKEAD+B, AZ(B) :NEXT HN 
4360 PRINT:PRINT"YOU ARE FINISHED!":GOTOAO00 ОХ 
+1609 REM BELL AND ERROR MESSAGES FL 
*1010 PRINT:PRINT"LINE ENTERED INCORRECTLY":PR 

INT:GOTOl100 DH 
+1620 PRINT:PRINT"INPUT A 4 DIGIT HEX VALUE!": 

GOTO1100 JA 


*1030 PRINT:PRINT"ENDING IS LESS THAN STARTING 
1":В=0:С0Т01100 
+104) PRINT:PRINT"ADDRESS NOT WITHIN RU ы 


“1060 PRINT"2ERROR IN SAVE":GOTOL100 ^ EI 
+1070 PRINT"?ERROR IN LOAD":GOTOl106 GL 
"1080 PRINT:PRINT:PRINT"END OF ML AREA":PRINT PG 


+1109 POKE54276,17:POKE54276, 16 : RETURN BH 
1200 OPEN15,8,15:INPUT#15,A,A$:CLOSE15;PRINTA 

$:RETURN IM 
+2000 REM GET FOUR DIGIT HEX PC 
+2010 PRINT: PRINTBS; : INPUTTS GM 
+2020 IFLEN(T$) CO4THENGOSUB1020: GOTO2010. II 
+204) FORA=1T04:A$=MIDS$(T$, A, 1) :GOSUB2060: ТЕТ( 


A)=16THENGOSUB1N20:GOTO2019 AD 
+205) NEXT: B=(T(1)*4996)+(T(2)*256)+(1(3)*16)+ 
T(4) : RETURN GF 
+2060 IFA$>"@"ANDAS<"G"THENT(A)=ASC(A$)-55:RET 
URN EH 
+2070 IFAS>"/"ANDA$<":"THENT(A)=ASC(A$)-48:RET 
KP 


+208 T(A)=16:RETURN NP 
+2500 REM ADRESS CHECK LI 
“2510 IFAD*ENTHEN1036 MI 
+2515 IFB<SRORB>ENTHEN 140, MG 
+2520 IFB<2560R(B>40960ANDB<49152)ORB>53247THE 

№1050 МІ 
“2530 RETURN ІМ 
+3000 REM ADDRESS TO НЕХ EB 
“3010 AC=AD:A=4096 : GOSUB3076 HG 
“3020 A=256:GOSUB3070 CE 
"3030 A«16:GOSUB3070 PN 
“3040 А-1:6051/8307/) MJ 
“3060 RETURN IM 
3070 T«INT(AC/A) : [FT>9THENA$=CHRS(T+55) : GOTO3. 

090 CJ 
+3080 AS=CHRS(T+48) JP 
+3090 PRINTAS ; :АС=АС-А*Т: RETURN AC. 
4000 Аба"%%5АУЕЖ%" : 05084200 м 
«4050 OPEN] ,T,1,A$:SYS689:CLOSE1 LH 
*4060 IFST=(THENEND EO. 
“4070 GOSUB1060:IFTeBTHENGOSUB1206 FJ 
* 4080. 60Т04000) FF, 
+410) A$="**LOAD**" : GOSUBA200. AB 
:4150 ОРЕМ1,Т,0,А5:5Ү5690:СІ05Е1 MF 
*4160 IFST=64THENIIO JH 
*4170 GOSUBI070: IFT=8THENGOSUBI 200 CM 
*4186 GOTO4100 FO 
+4200 PRINTTAB(14)A$ FG 
+4210 : INPUT" FILENAME" ; A$ OM 
*4215 "THENA210. GF 
+4220 PRINT:PRINT"TAPE OR DISK?":PRINT DF 
“4230 GETB$:T=1:IFB$="D"THENT=8: A$2" 00: HAS : RE 

TURN IG 
+424) 1ЕВ8<>"Т"ТНЕМ0230 FN 


+4250 RETURN 


-ÁS00) BS="CONTINUE FROM ADDRESS":COSUB2O10:AD= | 
+4510 GOSUB2515:IFB«UTHENASO0 MA 
+4520 PRINT:GOTO110 or 
+4700 BS="BEGIN SCAN AT ADDRESS" :GOSUB2010: AD= 

B 

+4705 GOSUB2515: IFBe'THENA700 NK 
+4706 PRINTzGOTOA7AO { DI 
+4710 FORB=(107 : AC=PEEK (AD+B) :GOSUB3030: IFAD+B 
=ENTHENAD=SR :GOSUB1080:GOTO119 BK 
+4715 PRINT" "; :NEXTB EC 
“4720 PRINT: AD=AD+8 GN 
+4730 GETBS: IFB$=CHR$(136)THEN110 MN 


+4740 GOSUB3010: PRINT" 


IMPORTANT! textes оп йе backoround are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
* and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


DRAGON TYPE +145 DATA97,193,202,208,250,96,165,128 Јр 
FROM PAGE 61 PROGRAM 1 “146 DATA141,211,194,165,129,141,210,194 ND 
Tyas Da Ld DATAQG 173121101947133, 12801732104 NE 
+10 REM PROGRAM 1 NA -148 DATA194,133,129,96,24,177,128,32 АА 
“20 PRINT"[CLEAR][DOWN][DOWN] LOADING MAC -149 DATA210,255,105,64,165,128,105,80 ЈЕ 
HINE LANGUAGE" MP >150 DATA133,128,165,129,105,0,133,129 СС 
*30 FORI-49152T049946:READA:POKEI,A:NEXT: +151 DATA96,169,15,141,0,212,169,85 OB 
REM CHECKSUM=98881 СІ +152 DATA141,24,212,169,18,141,1,212 KG 
+40 PRINT'(DOWN] LOADING DRAGON TYPE2" GP +153 DATA169,65,141,6, 212,169, 28,141 IE 
+50 LOAD"DRAGON TYPE2",8 HP +154 DATAS,212,169,129,141,4, 212,162 GA 
“100 DATA32,110,193,169,205,133,128,169 DN +155 DATA22,32,97,193,202,208,250,169 АА 
“101 DATA4, 133,129,169,11,141,39, 208 EH +156 DATA128,141,4,212,96,169,0,141 EN 
:102 DATA141,40,208,141,41,208,169,1 NE +157 DATAG,212,169,2,141,32, 208,169 16 
+103 DATAL41, 21,208, 169,0,141,25,195 BP +158 DATA85,141,24,212,169,38,141,1 FA 
"104 DATA141,0,208,141,16,208,141,26 CH +159 DATA212,169,65,141,6,212,169,45 MK 
“105 DATA195,169,85,141,203,194,173,23 ВМ +16 DATA141,5,212,169,33,141,4,212 BF 
*106 DATA195,141,206,194,169,11,141,207 КС .161 DATA162,45,32,97,193,202,208,250 IM 
*107 DATA194,32,38,193,169,15,141,248 КК +162 DATA169,32,141,4,212,169,5,141 KB 
*108 DATA7,169,0,141,209,194,32,154 PN +163 DATA32,208,96,160,255,169,3,141 LA 
+109 DATA192,201,136,240,69,32,38,193 СЕ +164 DATA33,208,169,14,141,32,208,200 ^ PL 
*110 DATA169,0,141,16,208,141,0,208 EH +165 DATA185,212,194,32,210,255,201,0 PN 


"111 DATA24,173,203,194,105,16,201,220 АН .166 DATA208,245,169,163,160,40,32,210 LL 
*112 DATA176,9,141,203,194,32,132,193 BN .167 DATA255,136,208,250,32,110,193,162 МҚ 


*113 DATA76,57,192,169,14,141,248,7 DB +168 DATA200,32,103,193,169,157,133,128 ЕН 
*114 DATA169,0,141,16,208,169,164,141 OJ +169 DATA169,5,133,129,169,0,141,16 JN 
“115 DATAG, 208,169, 70,141,1,208,169 NM 2170 DATA208,169,3,141,0,208,169,11 EN 
*116 DATA0,141,39,208,169,5,141,33 NK +171 DATA141,39,208,141,40,208,141,41 LG 
*117 DATA208,169,13,141,32,208,32,121 НМ +172 DATA208,169,8,141,25,195,169,125 EP 
*118 DATA193,96,169,1,141,26,195,76 KF +173 DATA141,203,194,169,26,141,207,194 JC 


+119 DATA107,192,32,228,255,201,136,240 KK +174 DATA169,25,141,206,194,169,0,141 00 
120 DATA5S,201,32,144, 245,141, 208,194 GF +175 DATA209,194,162,255,32,103,193,206 LO 
*121 DATA32,217,192,224,1,240,235,201 LI +176 DATA25,195,173,25,195,208,243,169 EP 


*122 DATA91,176,231,169,14,141,248,7 KK +177 DATA,141,21,208,32,38,193,169 КЕ 
+123 DATA32,3,193,32,153,193,174, 24 MO +178 DATA15,141,248,7, 162,180, 32,103 JI 
+124 DATA195,32,103,193,169,15,141,248 НА +179 DATA193,169,14,141,248,7,32,153 OH 
+125 DATA7,32,3,193,173, 16,208,240 NJ +180 DATA193,172,209,194,32,243,192,32 LI 
*126 DATA201,173,0,208,201,28,144,194 MJ +181 DATA3,193,162,55,32,103,193,169. DH 
*127 DATA96,172,209,194,177,128,201,32 СЕ +182 DATA15,141,248,7,32,3,193,162 GG 
*128 DATA144,27,56,237,208,194,240,11 LA +183 DATA80,32,103,193,173,209,194,201 № 
*129 DATA238,25,195,32,197,193,162,1 AC +184 DATA13,208,214,169,13,141,248,7 GK 
+130 DATA76,252,192,169,32,145,128,238 ЈО -185 DATA162,100,32,103,193,169,8,141 IB 
*131 DATA209,194,162,0,96,24,105,64 ON +186 DATA206,194,169,11,141,207,194,32 FN 
*132 DATA76,226,192,169,4,141,204,194 GE +187 DATA38,193,169,1,141,16,208,169 EA 
*133 DATA238,0,208,173,0,208, 141,0 DD +188 DATA27,141,207,194,32,38,193,32 FO 
+134 DATA208, 208,5,169,1,141,16,208 NP +189 DATA121,193,96,125,0,0,8,27 CH 
*135 DATA162,2,32,103,193,206 204,194 FK +190 DATA0,13,32,201,147,28,29,29 PB 
“136 DATA173,204,194,208,227,96,173,203 ЕВ .191 DATA29,29,29,29,29,29,29,29 NO 
“137 DATA194,141,1,208,173,207,194,141 НА +192 DATA29,29,29,29,17,17,17,17 KC 
+138 DATA205,194,169,4,141,204,194,238 ЕН +193 DATA17,17,17,17,68,82,65,71 EF 
+139 DATA), 208,174, 206, 194,32, 193,193 EN +194 DATA79,78,32,84,89,80,69,13 PK 
+140 DATA206,204,194,173,204,194,208,239 AJ +195 DATA13,29,29,29,29,29,29,29 FH 
+141 DATAI73, 248, 7,201, 13,208, 6,238 GA +196 DATA29,29,29,29,29,29,66,89 PH 
*142 DATA248, 7,238,248, 7,206, 248,7 LL +197 DATA32,66,79,66,32,83,80,73 JD 
*143 DATA206,205,194,173,205,194,208,210 AO +198 DATA82,75,79,31,13,13,0,1 AC 


*144 DATA96,160,255,136,208,253,96,32 ID “199 DATA10,0,0. JF 


PROGRAM 2 -1008 DATA1,255,0,3,243,128,7,241 РМ 
*1009 DATA192,7,255,206,7,255,250,7 FB 
*10 REM PROGRAM 2 NH +1010 DATA255,254,99,255,128,17,243,252 ІВ 
*20 PRINT"[DOWN] RUN" PC “1011 DATA16,112,0,32,120,0,65,248 FD 
*30 N«99: DIMW$(N) :SC=53280 DJ *1012 DATA0,135,248,0,143,252,0,79 MB 
*100 FORJ=832T01022:READB:POKEJ,B:NEXT КН >1013 DATA252,0,111,246,0,63,226,0 EO 
*130 POKE2040,13:POKE2041,14:POKE2042,15 ND >1014 DATA31,194,0,7,192,0,3,128 PJ 
«150 РОКЕ792,193:5/549659 СК *1015 DATAO,7,0,0,15,224,0,21 PG 
*155 FORI-OTON:READWS(I):NEXT CN +1016 DATAG,127,0,1,249,199,3, 248 HM 
*160 PRINT"[HOME][15"[DOWN]"][BLACK]"TAB( +1017 DATA253,3,255,255,3,255,240,3 MM 
10)"CHOOSE TYPING SPEED[DOWN]" JJ +1018 DATA255,224,17,255,192,16,247,128 РА 
“170 PRINTTAB(15)"[BLUE]l. FAST[DOWN]":PR 1019 DATA32,115,128,32,113,128,65,248 СО 
INTTAB(15)"2. MEDIUM[DOWN]":PRINTTAB(15) +1020 DATA192,71,248, 96,79, 252,0,111 KL 
"3, SLOW" LK +1621 DATA246,0,111,243,128,63,224,64 НІ 
“190 GETA$: IFA$=""THEN190 HJ +1022 DATA31,192,0,7,224,0,30,96 GL 
“200 AeVAL(AS) : TFACLORA>3THENL9O DP +1923 DATAG, 48,048,0,60,30,0 NH 
+210 POKE49943, A : POKEA9944 ,A*30 КВ +2000 DATAKNIGHT, MAIDEN, KING, QUEEN, PRINCE 
500 PRINT" (CLEAR ] [4" [ DOWN ]" ] LBLUE]" : РОКЕ „SWORD, ZEBRA , VISE, PEASANT, KNAVE LA 
SC, 5;POKESC+1,15 DH +2005 DATALANCE, BUCKET, QUILT, FLAGON ,WIZAR 
“510 FORJ=1T09: A$="(4" "J": FORT=0T06 : R=IN D, BIRD, HUT, BRIDGE, PIKE, MAN AJ 


T(RND(O)*N) EL 
*520 A$=A$+" "4W$(R):NEXT. DN 
+530 PRINTLEFT$(A$,35):PRINT:NEXT:POKEL98 
,0:Т0-Т1І:5Ү549152 NP 
540 Т-(ТІ-Т0)/3600: E-PEEK (49945) : POKESC, 
5:POKESC*1, 13: SeINT(47/T4. 5) NI 
+545 IFPEEK(49946)THENS=0:E=0 
+551) SR«S*90-20*E: IFSR2HSTHENHSSSR 
B OE 32): EIS o 
E), 
*565 SR$=RIGHT$(STR$(SR),4): BSSSRICHTSST с 
R$(H8),4) KE 
+579 PRINT"[CLEAR] [ BLUE] [ 12" [DOWN ]" ]TABC 
11)"SPEED [10"."]"S$ 
+580 PRINTIABCIL) " [OOWN] ERRORS [1 "."]"Е$ AD 
+590 PRINTTAB(11)"[DOWN ]SCORE[9" BM 
“600 PRINTTAB(11)"[DOWN]HIGH SCORE[4"."]" 
Н55 MP 
“610 Fe TREMP LIRONI" EREDI LOTE ЭЖ 
"]"5РС(7)"[В"[с P. 
*620 PRINTTAB(S)"[RVSON] SPACE "sec" 
RETURN " ко 


CH 
NI 


«630 PRINTTAB(8)"[ DOWN ] [ BLACK ]CONTINUE"SP 
C(10)" END" EH 
“700 POKE198, 6) 

*710 GETA$: IFA$-""THEN710 
*720. IFA$C2CHR$ (13) ANDA$<>CHR$(32)THEN710 aL 


m 


“725 РОКЕ53269,0 PL 
“730 ТЕА$-СНКЅ(32)ТНЕМ500 GD 
“740 POKE792,71:END KD 
1000 DATAO,127,128,1,249,192,3, 248 HB 
“1001 DATA224,3,255,231,3,255,253,35 NC 
“1002 DATA255,255,33,255,192,64,243,254 МІ, 
“1003 DATA64,112,0,32,120,0,33, 252 MM 
“1004 ПАТА0,71,252,0,79,254,0,111 PB 
“1005 DATA246,0,111,243,128,63,224,64 HI 
“1006 DATA31,192,0,7,224,0,30,96 GL 
“1007 DATA0,48,48,0,60,30,0,21 IB 


http: 


ww.oldgamesitalia 


“2010 DATAHEX, CHILD, RIVER, CHEST, GOLD, SILV 
ER,COIN,CASTLE, TUNIC, SPEAR 

*2015 DATAPATH, MAIL, JOKER , HELMET , FLASK, BE 
AST, ANIMAL, MAZE, BAY , LORD oc 
“2020 DATATORCH, TABLE, CHAIR, STABLE, HORSE, 
BISHOP , JESTER , CROWN , GAME, BOOK BG 
“2025 DATAYEOMAN, XEBEC, GORGE, PIT, SHIELD, A 
RMOUR, THIEF , YAM, COOK , SHOE FD 
“2030 DATALIVER, MALLET, CART, TAX, RAVINE, QU 
AIL, BOW, ARROW, HEN, FIRE IA 
*2035 DATABABY, WINE, JEWEL, DUNGEON , KNIFE, S. 


ERF, CROSS, DAMSEL „QUIVER, HAZE cP 


7.2040 DATAVIPER, LION, DOG, CANDLE, WOLF , UM 
LJ 


LOG, GRATE, NUT, CANNON 
-2045 DATAQUARRY , IBEX ocu 
K, GEM, LANTERN, STAG, SCARF Ni 


AUTO-GEN 
FROM PAGE 59 


*1000 PRINTSPC(15)"AUTO-GEN" EN 
*1010 PRINTSPC(13)"SEP[3" "]1, 1984" NE 
*1020 PRINTSPC(13)"DAVID A JONES" JF 


*1030 REM CREATES DISK FILE OF DATA STATE 
MENTS CONTAINING IMAGE OF MEMORY 

*1040 : 

*1050 FL-6 

TION TO BE SAVED 
:1060 LL=0 

ION TO BE SAVED 
*1070 LN=1000 


DI 
: REM FIRST MEMORY LOCA 


: REM LAST MEMORY LOCAT 
: REM OUTPUT PROGRAM LI 
MB 


NE NUMBER 

*1080 LB=0 : REM LOW BYTE OF 16 BI 

T NUMBER BH 
1090 НВ=0 : REM HIGH BYTE OF 16 B 
IT NUMBER BO 


1100 НН=0 REM TEMP STORE FOR HE 


IMPORTANT! Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
* and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


XIDECIAML CONVERSION 

*1110 ММ-/) : REM DECIMAL VALUE OF 
NUMBER CONVERTED FROM STRING 

*1120 ND-10 : REM NUMBER OF DATA ІТ 
EMS PER LINE HC 
"1130 NL=2049 : REM POINTER TO START 

OF NEXT BASIC LINE 
1140 X=) : 
R 


PD 


NG 
REM OUTER LOOP COUNTE 


“1150 Ү=0 REM INNER LOOP COUNTE 
R 


"1160 7-0) : REM DATA ITEM COUNTER МВ 


+1500 LB=LN-256*(INT(LN/256)): HB=INT(LN/ 
256) ОР 


А +1510 PRINT#8,CHR$(LB) ;CHR$(HB);: КЕМ МЕХ 


T LINE NUMBER DE 
+1520 PRINT LN;: REM SHOW USER WHAT'S HAP 
PENING FL 


*1530 PRINT#8,D$;: REM DATA TOKEN BL 

+1540 : DI 
E +1550 FOR Ү-Х TO X+ND-1: REM 0 TO 9 = 10 

ITEMS MB 


JE +1560 X$=RIGHTS("[4" "]UASTRS(PEEK(Y)),3) NM 
DI 


*1570 : 


+1170 С$="," REM COMMA LH +1589 FOR I=1 TO 3 IM 
+1189 D§=CHR§(131): REM BASIC TOKEN FOR " +1590 PRINT#B,CHRS$(ASC(MID$(X$,I,1))); 0Е 
DATA" MG +1600 NEXT I MN 
+1199 S$a" " : REM SPACE ML +1610 : DI 
*1200 FI$="" REM OUTPUT FILE NAME KI +1620 Z=Z+1 EB 
+1210 NN$="" : REM NUMBER STRING INP +1630 IF Z«ND THEN PRINT#8,C$; 1A 
UT MP -1640 NEXT Y NN 
+1220 Х$="" : REM 4 CHARACTER STRIN +1650 : DI 
G REPRESENTING 1 MEMORY LOCATION AO +166 PRINTÉB,CHRS(0);: REM END OF LINE Т 

*1230 + DI  ERMINATOR AP 
+1240 : REM MAIN PROGRAM АК +1670 LN=LN+10 OK 
+1250 : DI “1680 2-0 ЕН 
-1260 PRINT: INPUT"FIRST MEMORY LOCATION"; +1699 GOSUB 1920 GF 
NN$ CH +1700 NEXT X NK 
+1270 MM=VAL(NN$) CC +1710 : DI 
+1280 IF LEFT$(NN$,1)="$" THEN GOSUB 1830 AI +1720 : REM ADD END OF PROGRAM TERMIN 

+1290) FL=MM NM ATOR JM 
+1300 PRINT: INPUT"LAST MEMORY LOCATION";N +1730 : DI 
N$ N +1740 PRINT8,CHRS(0) ; CHR$(0) ; DK 
+1310 MM=VAL(NNS) CC +1750 CLOSE 8 NI 
+1320 IF LEFT$(NN$,1)="$" THEN GOSUB 1830 AI +1769 GOSUB 1920 GF 
*1330 LL-MM 00 -1770 CLOSE 15 AB 
*1340 PRINT: INPUT"STARTING LINE NUMBER";L PRINT: PRINT" COMPLETE" BJ 
N AH END ІС 
41350 PRINT: INPUT"NUMBER OF DATA ITEMS РЕ : DI 
R LINE";ND EN REM HEX TO DECIMAL EM 
*1360 PRINT:INPUT"OUTPUT FILENAME";FI$ СМ *1820 : DI 
+1370 : DI “1830 ММ=0: HH=0 DM 
+1380 OPEN 15,8,15 AM +1840 FOR X=2 TO LEN(NN$) CI 
+1390 ОРЕМ 8,8,8,"0:"4+FI$+",P,W" NJ “1850 HHeASC(MIDS(NNS, (X),1))-48 IP 
+1400 GOSUB 1920 СЕ +1860 MM=16*MM+HH+7*(HH>9) JO 
+1410 : DI +1870 NEXT IA 
+1420 PRINT#8,CHR$(1);CHR$(8);: REM PROGR +1880 RETURN IM 
AM LOAD LOCATION AD +1890 : DI 
+1430 : DI >1900 REM DISK 1/0 ERROR DG 
4,40: REM MAIN LOOP BI +1910 : DI 
1450: DI +1920 INPUT#15,EN$,EM$,ET$,ES$: EN-VAL(EN 

+1460 FOR X=FL TO LL STEP ND кь $) ІМ 
+1470 NL=NL+2+2+1+4*ND+1 JA +1930 IF EN=0 THEN 1970 I0 
+1480 LB-NL-256*(INT(NL/256)): HB=INT(NL/ +1940 PRINT"DISK I/O ERROR "; oM 
256) KL +1950 PRINT EN$,EM$,ET$,ES$ PG 
“1490 PRINT#8,CHR$(LB);CHR$(HB);: REM NEX +1960 CLOSE 8: CLOSE 15: STOP NN 
T BASIC LINE КС +1979 RETURN IM 


90 АНОҮ! 


MOXEY'S PORCH 
FROM PAGE 73 


*10 POKES2,48:POKE56,48:CLR 


HJ 
“20 REM Ж MOXEYS PORCH % BY BOB BLACKMER NK 


"350 LV=VAL(LV$)+1 

+366 PRINT"[CLEAR]" : POKE53272, ( PEEK(53272 
)AND240)414 HB 
“370 POKE53282, 2: POKE53283, 7: POKE53270, PE 
ЕК(53270)0816 HM 


+30 DIMMV(136) :HS=0:A=2:B=39:C=41:MP$="MO "380 X2=203:Y2=166:X1=157:Y1=102:U=1401 — JD 
XEYS PORCH": PS=53270 PO +390 IFLV-1<1THENLV=2 CP. 
40 Ү-53248:5-54272;М-56320:РОКЕУ-21,65:Р +400 LV=LV-1 MF 
0КЕ53280,6:Р0КЕ53281,11:0=1401 MN +410 PRINT"[HOME]"TAB(12)"[3" [DOWN]"] [CYA 
+50 FORL=STOS+24:POKEL,0:NEXTL НА  N]"MP$ AA 
+60 РОКЕЅ+5,21:РОКЕЅ+1, 20: POKES+6, 240: POK “420 6070450 CN 
Е5%4,17:6051/В1110 AJ +430 JV=PEEK(M) :FR=JVAND16 ON 
70 PRINT" [CLEAR] [ HOME ] [ DOWN ] [ DOWN ] [RVSON “440 JV215-(JVANDI5) : RETURN [ed 
][YELLOW]DO YOU WANT INSTRUCTIONS? (Y/N) «450 PRINT"[HOME][7" [ DOWN]"][c 6]" AH 
n DH +469 PRINTTAB(17)"#$" GM 
“80 GETI$:IFI$=""THEN8O HD +479 PRINTTAB(16)"#2&$" KL 
+90 IFI$="N"THEN300 ІН +480 PRINTTAB(15)"#Z&%&$" 00 
2100) IFI$<>"Y"THEN8O А) *490 PRINTTAB(14)"#2Z&2%&Z&$" DJ 
110 PRINT" [CLEAR ][HOME]"TAB(11)"[c 6]"MP “500 PRINTTAB(13) " 42&2&2&28$" HI 
$" [DOWN ] [DOWN ]" KN +510 РКІМТТАВ(12)"478787878285" BH 
+120 PRINT" [DOWN ][CYAN]ENZO[7" "]JUST GOT “520 РВІМТТАВ(11)"%2878282425245" ЕС 
А POGO STICK AND" GH +530 РКІМТТАВ(10)"%282828282828745" GN 
*130 PRINTTAB(11)"JUMPED OVER TO HIS NEIG — +540 PRINTTAB(9)"#Z&28282828282828$" Hk 
HBORS" P +550 РКІКТТАВ(8)"42878287828787805085" HJ 
*146 PRINTTAB(11)"MULTI- ‘STEP FRONT PORCH, +560 РВ1ХТТАВ(8)"'('('('('('('('('('(":РО 
[3" [DOWN ]"]" AI КЕЅ+24,15 м 
+150 PRINT" [ YELLOW |МОХТЕ(6" "]DOESN'T LIK +570 FORL=1T0136 STEP2 MJ 
E THE MARKS" KA +589 POKES+4,17:POKES+1,55:POKES+4,16 LJ 
+160 PRINTTAB(11)"ENZO'S POGO STICK IS MA +590 X2=X2+MV(L):Y2=Y2+MV(L+1) NB 
KING" L «600 FORG=LVTOISTEP-1 НЕ 
“170 PRINTTAB(11)"ON HIS PORCH.[3"{DOWN]" “610 K=1:GOSUB430 JF 
|, FN +620 POKE2040,P:IFK<>LVTHENK=K+1:GOT0620 ВІ 
+180 PRINTTAB(3)"[c 8]TO PLAY USE JOYSTIC +630 РОКЕ2046,0 ON 
K #2 AND MARK UP[5" "JALL THE STEPS ON"; IE .640 REM #**NOTE*** LINES 650-660 MUST BE 
*190 PRINT" MOXIE'S PORCH,":PRINTTAB(3)"W ENTERED USING ABBREVIATIONS NG 
HILE TRYING TO AVOID MOXIE'S PURSUIT" CG -650 POKEV,X1:POKEV+1,Y1:IFPEEK(U)=37THEN 
*200 PRINTTAB(3)"[UP]IF SUCCESSFUL YOU AR POKEU, C: POKEU+1 ,C+1:SC=SC+1:POKES+4, 129: 
E REWARDED WITH" BM РОКЕЅ+4,128 0M 
*210 PRINTTAB(3)"ANOTHER PORCH AND A FAST *660 POKEV, X1:POKEV+1, ¥1:IFPEEK(U)=39THEN 
ER MOXIE. [DOWN ] [ DOWN ]" KJ POKEU, 43: POKEU+1,44:SC=SC+1:POKES+4, 129: 
+220) POKEV+23,65:POKEV+29,65:POKE2040,P:P POKES+4, 128 HG 
0КЕ2046,0:РОКЕУ%37,6:РОКЕУ%38,5 CL +670 POKEV+12,X2:POKEV+13,Y2 KG 
“230 POKEV ,69:POKEV+1, 70 BG >680 P=P+1:IFP>15THENP=13 IL 
+240 POKEV+12,60:POKEV+13,110 ЕР +690 Q=Q+1:IFQ>199THENQ=198 ОР 
“250 PRINTTAB(10)"[RVSON][c 6]HIT ANY KEY *700 IFP=14THENPOKES+4 , 129: POKES-4 , 128 JD 
TO BEGIN": FORK=1T099:NEXTK ND >710 IFJV=4THENX1=X1-16:U=U-A:IFPEEK(U)=3 
“260 GETS$:IFS$-'""THEN28G HF 2THENU=U+A:X1=X1+16 PO 


“270 IFS$<>""THEN290 
+280 PRINTTAB(10)"[UP]HIT ANY KEY TO ВЕСІ 


N[UP ]" : FORK-1T099: NEXTK : GOTO256 EG 
+290 POKEV+23 ,:POKEV+29,0 CH 
+300 51-0 IA 


“310 PRINT" [CLEAR ] [HOME] [ 3" [DOWN |" |"ТАВ(7 
)"LEVEL (1-9)" GE 
+320 PRINT"[DOWN]"TAB(7)"1 IS THE HARDEST 
" 


ЕК 
+330 GETLV$:IFLV$=""THEN330 DO 
+340 IFLV$<"1"ORLV$>"9"THEN330 FD 


ww.oldgarr 


P -720 IFJV=8THENX1=X1+16:U=U+A:IFPEEK(U)=3 
BP 


20RPEEK(U) -36THENU-U-A : X1-X1-16 
+730 IFJV-STHENX1-X1-8:Y1-Y1-8:U-U-C: IFPE 


EK(U)=32THENU=U+C:X1=X1+8:Y1=Y1+8 EN 
“740 IFJV=6THENX1=X1-8:Y1=Y1+8:U=U+B: ТЕРЕ 
EK(U)=32THENU=U-B: X1=X1+8:Y1=Y1-8 JO 


Н «750 REM ***NOTE*** LINES 760-770 MUST ВЕ 


ENTERED USING ABBREVIATIONS 
“760 IFJV=9THENX1=X1+8:Y1=Y1-8:U=U-B: 
EK(U)=320RPEEK (U)=36THENU=U+B:X1=X 
=Ү1+8 


http: 


“770 IFJV-10THENX1-X148: Yl-Y148:U-U4C: IFP 
EEK(U)-400RPEEK(U) -32THENU-U-C: X1-X1-8: Y 


1-Y1-8 ос 
“780 IFSC-55THEN976 JM 
“790 IFYl-Y2ANDX1-2-X2THEN816 AN 
«800 NEXTG:NEXTL:GOTO579 CA 


“810 POKEV+23,64:POKEV+29,64:POKES+4,17:P 


OKES46,240:X2-180:Y2-166:POKE2046,199 МЈ 
“820 FORL=1TO99STEP2 KJ 
“830 X2=X2+MV(L) :Ү2=Ү2+МҮ(1+1) NB 
"ВАС POKEV+12,X2:POKEV+13,Y2 KG 
*850 POKES+1 ,L+20 EL 
“860 FORK=1T040:NEXTK MC 
+870 КЕХТІ, MO 
+88) POKES+24 ,0:POKEV+23 ,0:POKEV+29,0:PRI 


NT"[CLEAR]" : POKEPS+2, 21: POKEPS , PEEK(PS)A 
ND239 

+890 SL=SL4SC*10:SC=0: PRINTSPC( 12)" [YELLO 
W][RVSON]"MP$ : PRINTTAB(L1)"[DOWN][c 61/0 
UR SCORE: [ YELLOW]" ; SL JI 

+900 IFSL»HSTHENHSeSL BI 

*910 PRINTTAB(11)"[DOWN][c 8]HIGH SCORE:" 
1S 

+920 PRINT"[YELLOW] [RVSON ] [DOWN ] [DOWN] [RI 
GHT][RIGHT]WOULD YOU LIKE TO PLAY AGAIN? 
(Y/N)" GD 

+930 GETF$: IFF$=""THEN930 JF 

+940 IFF$="N"THENPOKEV+21 , 0: POKES+24 , 0: PR 
INT" [CLEAR |": END 

+950 IFF$«»"Y"THEN930 

+960 6070300 

+970 POKEV423, 1:POKEV429, 1:POKES+4,17:POK 
BS+6,240:X1=170:Y1=166 01 


BD 


FC 
cc 
BP 


*980 FORL=1TO99STEP2 KJ 
“990 X1=X14+MV(L) :Y1=Y1+MV(L+1) HF 
+1000 POKEV,X1:POKEV+1,Y1 GE 
1010 РОКЕЅ+1 ,1+20 ЕІ, 
+1020) FORK=1T040:NEXTK MC 
1030) NEXTL MO 
“1040 SL=SL+SC#10 FM 
+105) POKES+24,(:POKEV+23 ,0:POKEV+29,0:PR 


INT" [CLEAR ]": POKEPS+2, 21: POKEPS , PEEK(PS) 
AND239 
“1060 PRINTTAB(12)" [DOWN ] [DOWN ] [CYAN] [RVS 
ON]"MP$ : PRINTTAB( 13)" [DOWN ] [ YELLOW]SCORE 
:";5:5С=) ВЕ 
“1070 IFLV-1<1THENLV=2 
+1080 PRINTTAB(10)"[ YELLOW] [ DOWN] [DOWN] YO 
U HAVE REACHED"; PRINTTAB(14)" [DOWN ]LEVEL 
:[c 6]";LV-1 сс 
“1090 FORK=1T01500:NEXTK АР 
1100 POKEPS , PEEK(PS)OR16:POKEPS+2, (PEEK( 
PS+2)AND240)+14:GOTO360 LH 
“1110 PRINT" [CLEAR] [ HOME] [5" [ DOWN ]" ][YELL. 
OW]I'M WORKING[4"."]PLEASE BE PATIENT" 
1120 POKE56334 ,PEEK (56334) AND254: POKE1,P. 
EEK(1)AND251 BE 
“1130 FORI=0T057 MF 


AHOY! 


MO 


92 


+1140 FORJ=9T07 IC 
+1150 POKE14336+1*8+J , PEEK(V+I*8+J), PM 
“1160 NEXTJ:NEXTI NB 


+1170 POKE1, PEEK(1)OR4:POKES6334 , PEEK (563 
34)OR1 IE 


+1180 CK=0;FORCH=35T045 PB 
+1190 FORBY-0TO7 NE 
+1200 READ NU:CK=CK+NU Ic 
+1210 POKE14336+(8*CH)+BY , NU JH 
+1220 NEXT BY:NEXT CH GL. 
*1230 IFCK<>1O450THENPRINT" ERROR IN DATA- 

LINES 13060-1400" :END DP 
“1240 CKe0: FORS1-832T0B94 : READQI :CK=CK+QL 

1POKES1,Q1:NEXT КЕ 


1250 FORS2-896T0958: READQ2 : CK-CK4Q2 : POKE 

$2,02: NEXT HB 

1260 FORS3-960T01022 : READQ3: CK«CK4Q3: POK 

ES3,Q3:NEXT JN 

+1270 FORS4212672T012734: READQA : CK«CK4Q4 : 

POKES4 ,Q4:NEXT 

1280 FORS5-12736T012798: READQ5 : CK«CK4Q5: 

POKESS, Q5:NEXT:P=13:Q=198 

1290 IFCK«»8699THENPRINT"ERROR IN DATA-L 

INES 1410-1800": ЕМ MK 

+1300 CK=0:FORW=1TO136STEP2: READQ6 ,Q7 :MV( 

W)=Q6:MV(W+1)=Q7:CK=CK+Q6+Q7 : NEXTW 

*1310 IFCK<>GTHENPRINT"ERROR IN DATA LINE 

5 1810-1870" : END 

1320 POKEV+28, 65: POKEV437 ,6: POKEV+38,5:P 
PE 


ОР 


DA 


OKEV445,0: POKEV439, 15: RETÜRN 

“1330 DATA0,0,0,0,2,10,42,170 CJ 
*1346 DATAO, 0,0, 0,128, 160, 168, 170 MH 
1350 DATA106,90,86,85,85,149,165,169 ко 
1360 DATA171,175,191, 255,255,254, 250, 234 РІ 
“1370 DATA106,90,86,85,85,21,5,1 KL 
+1380 DATAI71,175,191,255,255, 252, 240,192 DA 
+1399 DATA104,90,86,85,85,149,165,169 PE 
+1400 DATA43, 175,191,255, 255, 254,250,234 HM 
1410 DATA104,90,86,85,85,21,5,1 FB 
1420 DATA43,175,191, 255,255, 252,240,192 АО 
“1430 DATA0,0,0,0,0,0,0,0 FG 
“1440 DATA 0,0,0,0,0,0,0,0 FG 
“1450 DATA 0,0,0,0,0,112,0,0 JP 
“1460 DATA 136,0,1,4,0,0,112,0 ND 
1470 DATA 1,84,0,4,81,0,4,169 EA 
“1480 DATA 0,1,36,9,0,32,0,1 KP 
“1490 DATA 36,0,1,36,0,1,36,0 NN 
“1500 DATA 1,36,0,1,36,0,0,168 HF 
*1510 DATA 0,0,32,0,0,32,0 EK 
*1520 DATA 0,0,0,0,0,0,0,0 FG 
“1530 DATA 0,0,0,0,0,0,0,0 FG 
“1540 DATA 0,0,0,112,0,0,136,0 GI 
“1550 DATA 1,4,0,0,112,0,1,84 PO 
1560 DATA 0,4,81,0,4,169,0,1 NK 
+1570 DATA 36,0,0,32,0,1,36,0 NC 
“1580 DATA 1,36,0,1,36,0,1,36 ск 
“1590 DATA 0,1,36,0,0,168,0) ТА 
+1600 DATA 0,0,0,0,0,0,0,112 JP 


1 MPO RTANT! Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
1 and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


1610 DATA 0,0,136,0,1,4,0,0 OK 
+1620 DATA 112,0,1,84,0,4,81,0 GC 
+1630 DATA 4,169,0,1,36,0,0,32 FF 
*1640 DATA 0,1,36,0,1,36,0,1 JG 
*1650 DATA 36,0,1,36,0,1,36,0 NN 
+1660) DATA 0,168,0,0,32,0,0,32 AH 
*1670 DATA 0,0,0,0,0,0,0 PD 
“1680 DATA0,0,0,0,0,0,0,0 FG 
1690) DATA0,0,0,0,0,0,0,0 FG 
*1700. DATA0,0,0,0,0,0,0,0 FG 
*1710 DATA0,0,0,0,42,0,0,1760 LO 
*1720 DATA128,2,235,160,2,170,160,2 PG 
“1730 DATA255,224,2,170,160,0,170,128 HC 
+1740 DATA0,42,0,0,34,0,2,162 BC 
*1750 DATA160,0,0,0,0,0,0 GB 
+1760 DATA0,0,0,0,0,0,0,0 FG 
%1770 DATAO,0,0,0,0,0,0,0 FG 
+1780 DATA0,0,0,0,0,0,0,0 FG 


+1790 DATA0,0,0,0,0,0,0,0 FG 
+180) DATA0,0,42,0,0,170,128,2 AC 
*1810 DATA235,160,2,170,160,2,255,224 JA 
*1820 DATA2,191,160,0,170,128,0,42 CK 
"1830 DATA0,0,34,0,2,162,160 LJ 
+1849 ПАТА-16,0,-16,0,-16,0,-16,0,-16,0,8 


»-8,8,-8,8,-8,8,-8,-8,-8 GK 
+1850 DATA-8,-8,8,-8,8,-8,8,8,8,8,8,8,8,8 
,-8,8,-8,8,-1 J 
+1869 DATA-16,0,-16,9,-8,8,16,0,16,9,-8,- 
8,-8,-8,8,-8,8,-8,8,-8 

“1870 DATA8,8,8,8,8,8,8,8,-8,8,-8,8,-8,8, 
16,0,16,0,16,0 PD 
“1880 DATA16,0,-8,-8,-8,-8,-16,0,8,8,-8,8 
,-16,0,-16,0 

"1890 DATA-16,0,8,-8,8,-8,-8,-8,8,-8,-16, 
0,-16,0,-16,0,-8,8 

+1900 DATA-8,8, -8,8,-8,8,16,0,16,0,16,0,1 
6,0,8,-8,16,0,16,0,16,0 IJ 


FILE LOCK 
FROM PAGE 62 


[o] 


IL 


PO 
GF 


"5 REM FILE LOCK V0222/85 KI 
%10 GOTO 10000 IE 
“50 РОКЕ 198,0 KB 
“52 GET A$:IF A$="" THEN GOTO 52 NH 
“55 RETURN IM 
+70 REM WAIT FOR RETURN JL 
"80 POKE 198,0:POKE 204,0 HG 
«85 СЕТ A$:POKE 207,0:IF A$<>CHR$(13) THE 

N GOTO 85 DB 


“90 POKE 204,1:PRINT " "CHR$(157);:RETURN КР 
+100 REM WAIT FOR KEY JJ 


+105 РОКЕ 198,0:POKE 204,0 HG 
+110 СЕТ A$:POKE 207,0:ТЕ A$="" THEN GOTO 
116 


CM 


*115 POKE 204,1:PRINT " "CHR$(157);:RETUR 
N K 


“150 REM BOX ROUTINE 

*152 GOSUB 190 

*155 PRINT CHR$(117);:FOR І-0 TO W-2:PRIN 
T CHR$(99);:NEXT I:PRINT CHR$(105); 

:158 FOR Ј=0 TO H-2:RW=RW+1:GOSUB 190 


H RINT CHR$(103);:FOR І-0 TO W-2:PRIN 

T :NEXT I:PRINT CHR$(104); FG 
“161 NEXT J MM 
*162 RW=RW+1:GOSUB 190 EF 


+165 PRINT CHR$(106);:FOR 1=0 TO W-2:PRIN 
Т CHR$(99);:NEXT I:PRINT CHR$(107); PE 
170 PRINT BL$;:RETURN ЕЕ 


:190 REM SET CURSOR LOCATIOM OH 
+195 POKE 214,RW:POKE 211,CL:SYS 58640:RE 
TURN 

“200 REM READ DIRECTORY HI 


“210 OPEN 15,8,15,"I0:":0PEN 2,8,2, 4" EI 
*220 TK-18:SC-1:NF-0 DO 
+230 PRINT#15,"U1";2;0;TK;SC LN 
+240 GET#2,A$:A$=A$+CHR$(0) : T-ASC(AS) NL 
“250 GET#2,A$:A$=A$+CHR$(0) :S=ASC(A$) AG 
“260 FOR F=) TO 7:REM 8 ENTRIES/SEC LM 
+270 PRINT#15, "B-P"; 2; F*32+2 NK 
+275 GET#2,A$:IF A$="" THEN Аб-СНЮ9(0) LB 


+280 A=ASC(A$):IF ASC(A$)=0 THEN GOTO 325 BK 
o L$2"5":IF (А AND 64) =) THEN PSSUSS o 
А 
+290 GET#2,A$:GET#2,A$ GE 
+300 F$=L$+"" ID 
“305 FOR I=) TO 15:GET#2,A$:IF A$="" THE 
N A$=CHR$(0) CD. 
*310 IF ASC(A$)=160 THEN GOTO 320 BM 
*315 Е$=Е$+А$ IO 
*320 NEXT I MN 
*322 FL$(NF)=F$:S(NF)=SC:EN(NF)=F:NF=NF+1 ІР 
*325 NEXT F MI 
*330 IF Т<>0 THEN TK=T:SC=S:GOTO 230 CJ 
*335 CLOSE2:CLOSE15 BI 
“340 NF=NF-1:RETURN IA 
*40( REM PRINT FORMATTED SCREEN, KA 
+405 PRINT CHR$(147);:PRINT HD$:PRINT KD 
“410 RW=2 ):H=20:W=19:GOSUB 150: BM 
*415 RW=2 :H=20:W=19:GOSUB 150 сс 
*450 REM FILL SCREEN WITH FILES EC 
*455 RW=3:CL=1:GOSUB 190:ZN=0 GE 
“460 FOR J= TO 18:1=PG*38+ZN*19+J CM 
7402 IF 5Е(1)=0 THEN PRINT FL$(I);:GOTO 4 
6 0G 
*463 IF 5Е(І)-1 THEN PRINT RV$FL$(I)RO$; ЕМ 
*464 RW=RW+1:GOSUB 190:NEXT J HF 
*465 RW-3:CL-21:GOSUB 190:ZN-1 MD 
*470 FOR J=) TO 18:I-PG*384ZN*194J CM 
2 IF SF(I)=0 THEN PRINT FL$(I);:GOTO 4 
PD 
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+473 IF SF(I)=1 THEN PRINT RVSFL$(I)RO$; FM +710 NCS=" UNLOCK FILES " KA 
+474 RW=RW+1:GOSUB 190:NEXT J HF +715 GOSUB 800 CI 
+475 ZN=0:RETURN ЕО +719 OPEN 15,8,15:0PEN 2,8,2,"#" EI 
+500 REM SCRATCH KM «720 FOR I=) TO NF:IF SF(I)-0 THEN GOTO 6 
+510 NC$="SCRATCH FILES " KJ 60 л 
+515 GOSUB 800 CI +730 GOSUB 690 cP 
“519 ОРЕМ 15,8,15 АМ +735 GET#2,A$:IF А$="" THEN A$=CHR$(9) LB 
+520 FOR 1-0 TO NF:IF SF(I)-0 THEN GOTO 5 +740 FT-ASC(AS):FT-(FT AND 191) JA 
40 JB +750 GOSUB 689:GOSUB 900 KD 
+525 F$=FL$(I):IF LEFT$(F$,1)=">" THEN GO -760 NEXT I MN 
TO 540 КР .770 CLOSE 2:CLOSE15:RETURN ON 
+530 F$=RIGHT$(F$,LEN(F$)-1) BL +800 REM SELECT FILES LL 
+535 PRINT#15,"S0:"F$:GOSUB 900 NM +805 RW=1:CL=12:GOSUB 190:PRINT YL$NC$; НІ 
+540 NEXT I MN *806 RW=24:CL=0:GOSUB 190:PRINT CD$; KM 
+550 CLOSE 15 AB +807 RW=3:CL=18:GOSUB 190:РКІМТ АКФ; :Ј=0 CE 
+599 RETURN ІМ +819 GOSUB 50 РР 
«600 REM LOCK MA +811 IF A$-CMS THEN RETURN IL 
“610 NC$-"[3" "]LOCK FILES " EB +812 IF A$=CHR$(13) THEN 60508 820:00Т0 
+615 GOSUB 800 СІ 810 
*619 OPEN 15,8,15:0РЕМ 2,8,2,"#" EI +813 IF A$=AR$ THEN СОТО 10000:REM EXIT А 
+620 FOR I= TO NF:IF SF(I)=9 THEN GOTO 6 ND START OVER KN 
60 JI +814 IF A$=CHR$(19) THEN GOSUB 190:PRINT 
+630 GOSUB 690 СР" ";:GOSUB 1000:GOTO 805 MO 
+635 GET42,A$:1F А$="" THEN AS-CHRS(0) LB +815 IF AS-CHRS(157) THEN GOSUB 890:GOTO 
640 FT=ASC(A$):FT=(FT OR 64) GK 810 
+650 GOSUB 680 CO +816 IF A$=CHR$(17) THEN GOSUB 840:00Т0 
*655 GOSUB 900 DB 810 DL 
*660 NEXT I MN +817 IF A$=CHR$(145) THEN GOSUB 860:GOTO 
*670 CLOSE 2:CLOSE15:RETURN ON 810 GF 
+689 GOSUB 695: PRINTÉ2, CHRS(FT) ; DO +818 IF A$=CHR$(29) THEN GOSUB 880:GOTO 
*684 PRINT#15,"B-P";2;0 AF 810 (8 
+685 PRINT#15,"U2";2;0;18;S(I):RETURN IJ :819 GOTO В10 CN 
+690) PRINT#15, "U1" ;5(1) LP +820 ТР=С1:С1=С1-17:1=Рб*38+74*19+] MP 
+695 PRINT#15,"B-P";2;EN(1)#32+2:RETURN ММ 1821 IFSF(1)=1THENGOSUB19(: PRINTCHRS (146) 
+699 RETURN IM FLS(CF4I);:SF(I)-0:GOTO 824 EA 
“700 REM UNLOCK GE -823 IF SF(I)-0 THEN GOSUB 190:PRINT CHR$ 
+705 RW=1:CL=12:GOSUB 190 РА (18)FL$(CF+I)CHR$(146) ; :SF(1)=1 00 
«824 CL=TP:RETURN LM 
PROGRAMMERS! +840 I=PG*38+ZN*194+J:IF I=NF THEN RETURN KD 
Ahoy! wishes to continue publishing the best 2881 JeJel:IR 7919 THEN J519 ET 
(Sq eum НЫ Ede coiloble in "844 GOSUB 190:PRINT " "; — JI 
magazines today. We're looking for games, utili- 7845 RW=RW+1:IF RW>21 THEN RW=21:J=J-1 ЕК 
ties, educational, music, and graphics programs, +850 GOSUB 190:PRINT AR$; :RETURN KL 
and programs that completely defy description. If +860 JeJ-l:IF J<) THEN Je PD 
you have an original C-64, C-128, or VIC 20 рго- +861 GOSUB 199:PRINT " "; JI 
gram, in BASIC or machine language, we'd like “865 RW=RW-1:IF RW<3 THEN RW=3 EF 
lo see it. Payment will be made upon acceptance, “870 GOSUB 190:PRINT AR$;:RETURN KL 
at competitive industry rates. You will also receive -880 IF NF<PG*38+19 THEN RETURN LF 
royalties based on the sale of our program disks. +885 GOSUB 190:PRINT " "s:RW=3:CL=38:Je0: 
Send осору урой ondik or рә; ZN-1:GOSUB 190:PRINT AR$;:RETURN FK 


accompanied by a printout and documentation, to 
Аһоу!, 45 West 34th Street— Suite 407, New 
York, NY 10001. Include a self-addressed mailer 
with sufficient return postage affixed. (Program 
printouts not accompanied ін а disk or tape will 


е returned unread; programs not accompanied 
by sufficient return postage will not be returned.) 


"890 REM 

“895 GOSUB 190:PRINT " ";:RW=3:CL=18:J=0: 

ZN=0:GOSUB 190:PRINT AR$; :RETURN 

*900 INPUT#15,A$,B$,C$,D$ CN 

$905. RW=23:CL=0:GOSUB 190:PRINT "[38" "]" 
MO 


KJ 


*910 RW-23:CL-0:GOSUB 190:PRINT A$"[SS]"B 
$"[SS]"C$"[SS]"D$ ; : ER-1: RETURN MK 


http 


IMPORTANT! i255 ол н/е background are Bug Repellent line codes. Do not enter them! Pagos 85 and 86 explain these codes. 
* and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


*926 ER=0:RETURN 

"1000 IF NF438 THEN RETURN IJ 

1005 PG=PG+1:IF PG*38>NF THEN PG=) 

“1010 GOSUB 400:RETURN 

*10000 CLR:DIM FL$(76),S(76) ,EN(76) ,SF(76 
EP 


*10005 BL$-CHR$(154):YL$-CHR$(158):RV$-CH 
R$(18) :RO$=CHR$( 146): AR$-CHR$(95) 

*10010 POKE 53280,11:POKE 53281,0:PRINT C 
HR$(147)BL$; 

*10012 CD$=BL$+"  «CRSR» <HOME>"+YL$+" MO 
NS "4BL$+" <RTRND"+YL$+" SELECTS [SS]"+ 
BL; 

*10015 HD$=CHR$(18)+"[10" "]FILE LOCK VO[ 
3"2"]/85[12" "]'«CHR$(146) NO 
*10020 PRINT HD$; IG 
*10030 PRINT:PRINT "INSERT DISK AND HIT " 
YL$" «RETURN»"BL$ ; LC 
*10035 GOSUB 70:PRINT:PRINT "READING DIRE 
CTORY": MH 


BE 


EH 


"10040 GOSUB 200:PG=0:ZN=0:GOSUB 400 NK 
“10050 RW=24:CL=0:GOSUB 190 РС 
+10055 PRINTYL$ "SCRATCH LOCK UNLOCK PAGE 
BOOT QUIT ? "BL$CHR$(157); IE 
“10056 GOSUB 100 CJ 
*10060 IF A$="Q" THEN END GE 
-10065 IF A$="S" THEN PRINT A$;:CM$=A$:GO 
SUB 500:GOTO 10000 JL 


*10070 IF A$="L" THEN PRINT A$;:CM$=A$:GO 
SUB 600:GOTO 10006 0J 
*10075 IF A$="U" THEN PRINT A$;:CM$=A$:GO 
SUB 700:GO0TO 10000 GH 
*10080 IF A$="B" THEN PRINT A$;:GOTO 1000 
0 ІН 
“10085 IF A$="P" THEN PRINT A$;:GOSUB 100 
0 MG 
+10090 GOTO 10050 ТЕ 
*60000 CLOSE 15:0PEN 15,8,15,"I0:":CLOSEL 
5 IA 
*60001 SAVE "GO:FILE LOCK V0[3"2"]",8 
*61000 OPEN 15,8,15:INPUT#15,A$,B$,C$,D$ GK 
*61001 PRINT:PRINT A$"[SS]"B$"[SS]"C$"[SS 
]"D$:CLOSE15:STOP 


ROCKETS, BOATS & 


PIGS IN POKES 
FROM PAGE 18 . ric in A POKE 


AC 


*1 REM жжж PIG IN A POKE *** IE 
*2 REM AN EXAMPLE OF GAME PROGRAMMING WIT 
H A SPRITE OE 


*4 REM ** MOVE TOP OF MEMORY TO MAKE ROOM 
FOR VIDEO BLOCK AT 32768 
*5 POKE 55,255:POKE 56,127:POKE 643,255:P 


СА 


ОКЕ 644,127 KG 
*9 REM жжж SET-UP SUBROUTINES *** ОҒ 
10 GOSUB 600:REM (VIDEO MEMORY) II 
*11 GOSUB 700:REM (BACKGROUND STRING) BM 


*12 GOSUB 800:REM (SPRITE SHAPES) PB 
*13 GOSUB 900:REM (SPRITE POSITIONS) IE 
*15 GOTO 100 CF 
*98 REM *** ACTION LOOP *** KJ 
+100 K=KP(PEEK(653)):IF K>2 OR Еб=1 THEN 

300 NO 
“105 IF К>1 THEN 130 AG 
+110 HPsHP+K(K):IF НР<0 THEN HP=HZ HE 
+115 IF HP>HZ THEN НР-/) KM 


120 IF K<>XK THEN ХК-К:РОКЕ LT(0),ST(XK) KN 


125 POKE HT(0),HH(HP):POKE HR,HB(HP) A0 
130 IF VAL(TI$)>=DT THEN GOSUB 500 EB 
+135 IF PEEK(CF)»0 THEN GOSUB 400 NA 
*196 GOTO 100 CF 
*198 REM жжж WAIT FOR RESPONSE *** НО 
*296 RETURN IM 
*298 REM жжж ENDING ROUTINES *** NL 
*300 PRINT "[CLEAR]FINAL SCORE:  "RT*1004 


VP*10:PRINT:PRINT:VP215:POKE VT(0) ,VV(VP 

) NM 

"310 PRINT "TO PLAY AGAIN, PRESS Р":РКІМТ 
"TO QUIT, PRESS Q":HP=79 JE 

"315 НР-79:РОКЕ HR,HB(HP):POKE НТ(0),НН(Н 
P):XP=1:POKE LT(0),ST(XP) 

«320 Z=PEEK(203):IF Z=62 THEN 370 EA 


"325 POKE HT(0),HH(HP):POKE HR,HB(HP) AO 
“330 HPsHP+1:IF HP>HZ THEN НР=0 FJ 
“345 IF 2<>41 THEN 320 PE 
“350 EG=0:DL=0:DT=1:DS=5:RT=0:RC=:GOSUB 

930:60Т0 100 AK 
+369 REM ** PUT VIDEO MEMORY BACK TO FIRS 

Т BLOCK, AND SCREEN MEMORY TO 1024 EG 


*370 POKE 56578, PEEK(56578)OR3:POKE 56576 


» (PEEK(56576)AND 252)0R 3 MB 
“371 POKE 53272,20:РОКЕ 648,4 OM 
"379 REM ** REENABLE SHIFT/COMMODORE AND 

RUN-STOP/RESTORE FB 
*380 POKE 657,0:POKE 792,71:POKE 808,237 PK 
*390 END IC 
*398 REM яек COLLISION HANDLER *** IG 
*399 REM *** END GAME? CE 
*40( VP-VP-1:IF ҮР<0 THEN EG=1:RETURN PN 
+401 REM ** MOVE UP NJ 
*402 POKE VT(0), VV(VP) MD 
*403 REM %% CLEAR COLLISION REGISTER BF 
*404 Z=PEEK(CS) :Z=PEEK(CF) KI 
“405 REM ** NEW COLLISION? ON 
+406 IF PEEK(CF)»0 THEN 400 FC 
+496 RETURN IM 
-498 REM жжж SCROLL ROUTINE *** JF 
*499 REM ** NEW ROW OR SIMPLE JUMP? PJ 
*500 IF RC=DS THEN 506 NB 

AHOY! 95 


"501 КЕМ ** SIMPLE JUMP NJ 
«502 PRINT "[HOME][25"[DOWN]"][HOME]"; 07 
503 RC=RC+1:GOTO 520 ск 


+505 КЕМ ** PUT NEW ROW ON SCREEN 
“506 PRINT "[HOME][24" [DOWN ]" ]"MID$(WS$,W 
L(DL)*INT(19*RND(9)) 40)" [HOME]" ; 
“508 RC=O:RT=RT+1;DL=DL+1:1F DL>8 THEN DL 


BG 
PL 


=(:DS=DS-1 AJ 
+509 REM ** END OF GAME? LE 
+510 IF RT>49 THEN EG=1 GG 


“520 IF PEEK(CF)»0 THEN GOSUB 400:REM ** 


*628 ЕМ-53276 

+629 REM ** SPRITE MULTICOLOR COLOR REGIS 
TERS 

*630 MR=53285:REM ('01' REGISTER: ADD 1 T 
O MR FOR '11' REGISTER) LJ 
“631 REM ** SPRITE-SPRITE COLLISION REGIS 
TER OF 
+632 С5-53278 GA 
+633 REM %% SPRITE-FOREGROUND COLLISION R 
EGISTER MD 
“634 СЕ=53279 


EK 


ЕК 


COLLISION KN +635 REM ** SET-BIT AND CLEAR-BIT VALUES BI 
+580 POKE 217,L1:POKE 218,12 PJ +636 BS(0)=1:FOR I=1 TO 7:BS(I)-2*BS(I-1) 
+589 REM ** RESET TIMER NP :NEXT NE 
+590 TI$="[6"0"]" NI *637 FOR І-0 TO 7:BC(I)-255-BS(I):NEXT LB 
*596 RETURN ІМ -638 REM жжж INITIALIZE VALUES жж DK 
+598 REM жж ARRANGE MEMORY *** KB +639 REM ** FOREGROUND COLOR FL 
«599 REM USE THIRD VIDEO BLOCK (32768 TO *64( POKE 53281,9:PRINT "[CLEAR][c 2]";:R 
49151), SO ROM CHARACTER SET IS USABLE. AL EM (BROWN) 

+600 VB=32768:POKE 56578,PEEK(56578)0R3:P “641 REM ** BACKGROUND COLOR DK 
ОКЕ 56576, (PEEK(56576)AND 252)0R 1 CN +642 POKE 53281,5 :REM (GREEN) GM 
*601 REM ** TELL VIC-2 WHERE SCREEN IS WI *643 REM %% BORDER COLOR BE 
THOUT CHANGING CHARACTER SET LOCATION СА +644 POKE 53280,9:REM (BROWN) IM 
*602 5В=0:РОКЕ 53272, (SB*16)+4:SB=VB+1024 “645 REM ** SPRITE COLORS (DEFAULTS: WHI, 
*SB MO  RED,L-GRN, PUR,GRN, BLU, YEL, M-GRAY ) IE 
*603 КЕМ Жж TELL BASIC WHERE SCREEN IS GB +646 POKE CT(0),1:REM (THE PIG IS WHITE) FI 
*604 BB=SB/256:POKE 648,BB AK +647 REM ** SET PRIORITY EF 
*608 REM жжж REGISTER ADDRESSES *** EJ +648 POKE PR,O:REM (ALL IN FRONT) ор 
«609 REM ** SPRITE SHAPE LOCATION TABLE IF +649 REM %% SET HORIZONTAL SIZES BJ 
*610 LT(9)=SB+1016:FOR 1=1 TO 7:LT(I)-LT( +650 POKE НЕ,0:КЕМ (ALL NORMAL WIDTH) AL 
І-1)+1:МЕХТ AF +651 REM %% SET VERTICAL SIZES cc 
“611 REM ** SPRITE COLOR TABLE LA +652 POKE VE,O:REM (ALL NORMAL HEIGHT) PK 
“612 CT(0)253287:FOR І-1 TO 7:СТ(І)-СТ(І- +653 REM ** ENABLE SPRITES 00 
1)+1:МЕХТ AN +654 POKE ES,BS(0):REM (SPRITE 0 ONLY) КВ 
+613 REM ** SPRITE HORIZONTAL POSITION TA +689 REM жжж SAFETY PROCEDURES *** СМ 
BLE (LOW BYTES) CH +699 POKE 657,128:REM DISABLE SHIFT/COMMO 
*614 HT(0)=53248:FOR І-1 TO 7:HT(I)-HT(I- DORE CHARACTER SET SWITCH OA 
1)+2:МЕХТ KC +691 POKE 808,234:POKE 792,193: КЕМ DISABL 
“615 REM ** SPRITE VERTICAL POSITION TABL E STOP AND STOP/RESTORE JJ 
E IJ +696 RETURN IM 
*616 VT(0)553249:FOR 1=1 TO 7:VT(I)-VT(I- *698 REM жжж BACKGROUND STRING Ж FD 
1)42:NEXT AJ *700 WC$="[s V]":BC$-" " IH 
*617 REM ** SPRITE HORIZONTAL HIGH-BIT RE *709 REM SET UP WALL STRING GA 
GISTER IG “710 FOR I=1 TO 12 MP 
*618 HR=53264 FB “714 REM EACH WALL UNIT IS WIDER, EACH GA 
*619 REM ** SPRITE ENABLE REGISTER AF P NARROWER cD 
*620 ES=53269 FE +715 FOR Ј=1 TO 5+1:WS$=WS$+WC$:NEXT EA 
“621 REM Жж VERTICAL EXPANSION REGISTER ( “720 FOR Jel TO 15-I:WS$=WS$+BC$:NEXT GK 
1=DOUBLE HEIGHT) IB +725 NEXT ТА 
"622 УЕ-53271 GC +729 REM SET WALL STARTING POINTS м 


"623 КЕМ %% HORIZONTAL EXPANSION REGISTER 
(1=DOUBLE WIDTH) PL 

“624 HE=53277 FC 

"625 REM ** SPRITE PRIORITY REGISTER (1-5 


PRITE IS IN FRONT OF FOREGROUND) GM 

"626 PR=53275 FJ 

“627 REM ** MULTICOLOR ENABLE REGISTER (1 

=MULTI-COLOR ENABLED) IM 
96 AHOY! 


+730 WL(9)=1:FOR I=1 TO 9:WL(I)-WL(I-1)*2 
:NEXT PD 
“739 REM SET DIFFICULTY LEVELS (DL=SPACIN 


G; DI=TIMING; DS=VERTICAL SPACING) PI 
+740 DL-0:DT-1:DS-5 07 
“796 RETURN ІМ 
“798 REM *** SPRITE SHAPES *** cD 


+799 REM ** NUMBER OF SPRITE SHAPES (-1); 
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NUMBER OF LINES PER SPRITE SHAPE (-1) 
:800 NS=1:TS=9 

:801 REM ** LOCATE SPRITE SHAPE MEMORY 
+802 ST()=16:FOR І-1 TO NS:ST(I)=ST(I-1) 
+1:NEXT 

“803 REM ** LOOPS 

804 FOR I=0 TO NS:FOR J= TO TS:READ 55$ 
:FOR К=0 TO 2:X«0:Y-VB4ST(I)*644.]*34K 
*805 REM ** CONVERT STRINGS TO SHAPE BYTE 


CE 
GK 
OM 


HM 
HL 


IB 


5 (USE В5(0-7) TO SET BITS) LA 
“806 FOR Lel TO 8:M=L+8*K:) CUM 
M,1)):IF M=42 THEN X=X OR BS(8-L) 

*807 NEXT:POKE Y,X:NEXT:PRINT SS$:NEXT o 
“808 Z=64-(TS*3+2) : FOR J=Y+1 TO Y4Z:POKE 
J,O:NEXT:NEXT PF 


+809 REM SPRITE SHAPE DATA, 21 LINES PER 


SHAPE: *e'ON' .=!0FF! MJ 
“810 DATA "[S"," Je[14", "ен, HG 
1811 DATA "[5"."]**[д", "Гез. "үк," co 


+812 DATA "[4"," ][ 16" ] *, IG 
1813 DATA "[3","]*, (16e ](3". "y MG 
+814 DATA "|2276 LK 
+815 DATA "[22"*"],," LK 
+816 DATA "[4"," ][17'&" ][3" түт HO 
+817 DATA "[6"."][ 14" 719 HC 
2818 DATA "[G"l" ev, «[5"," Jé,*e[S"."]" АС 
4819 DATA "[5";" Jd. жарау, "jik (ен, түт DC 
+820 REM %% 2ND SHAPE cL 
+821 DATA ",**[14", " Je[6" "]" JG 
+822 DATA "RS." (өле ін n]espo"."]" FO 
*823 DATA ".*, [16^] [5^ " ]" MG 
+824 DATA "';, [16"" ] [4^ ун IG 
+825 DATA ".[22"*"]," BK 
+826 DATA ".[22"*"]," BK 
+827 DATA "..[17"*"][5","]" HO 
+828 DATA "[3"."][14"*"][ KC 
829 DATA "[4"l"J**.*[SÀ," ужу", — Mc 
«830 DATA "LAY." ek зп", жет, ]" OC 
+896 RETURN IM 
"898 REM жк SPRITE POSITIONS *** КА 
+899 REM ** POSSIBLE POSITIONS DIM'ED МК 
+900 VZ=19:HZ=147:DIM HH(HZ), VV(VZ) ,НВ(Н2. 
EJ 
“901 REM ** ASSIGN HORIZONTAL VALUES ТА 
*902 X=24:B=0:FOR 1-0 TO HZ:HH(I)eX:HB(I) 
=B ML 
+903 Х=Х+2:1Е X>255 THEN Х-Х-256:В-1 DP 
+904 NEXT IA 
+905 REM *"* ASSIGN VERTICAL VALUES LF 
*906 X=53:FOR Т=0 TO VZ:VV(1)=X:X=X+8:NEX 
T JN 
+919 REM ** KEYPRESS MATRIX EO 
+920 DIM KP(7),K(2) JA 
-921 


FOR 1=0 TO 7:KP(I)-2:NEXT:KP(1)-1:KP 
(2)-0:КР(7)-3 ML 
«922 К(0)--1:К(1)-1:К(2)-0 

+929 REM ** INITIAL SPRITE POSITIONING 
“930 HP=79:VP=VZ:XK=1 


BK 
10 
MH 


http://w 


“931 POKE ҮТ(0),УҮ(ҮР):РОКЕ HT(0),HH(HP): 
РОКЕ НЕ,НВ(НР) AC 
+939 REM ** TELL VIC-2 WHERE TO FIND SPRI 
TE SHAPE HK 
*946 POKE LT(0),ST(XK) HF 
*949 REM ** CREATE SCREEN DISPLAY ED 
+950 PRINT "[CLEAR]";:FOR I=} TO 5:FOR J= 
0 TO DS:PRINT "[DOWN]"; :NEXT 

*955 PRINT MID$(WS$,1+INT(19*RND(9)), HOME 

:NEXT: PRINT "[HOME]" ; 

*959 REM *** CLEAR SCREEN LINE LINK TABLE ic 
“960 LI=PEEK(217)OR 128:L2=PEEK(218)OR 12 
8:POKE 217,L1:POKE 218,L2 DN 


IF 


*969 REM ** CLEAR COLLISION REGISTERS GC 
*970 Z=PEEK(CF):Z=PEEK(CS) IA 
+989 REM ** SET CLOCK EI 
:990 TI$«"[6"0"]" NI 
*996 RETURN IM 


*l REM жж BASIC SPRITES *** сс 
"2 REM А SHIP AND A ROCKET DEMONSTRATE SP 
RITE CREATION AND MOVEMENT MN 
*9 REM жжж SET-UP SUBROUTINES *** — OF 
10 GOSUB 600:REM (VIDEO MEMORY) II 
AA 
PB 
13 GOSUB 900:REM (SPRITE POSITIONS) IE 
*15 GOTO 100 CF 
*98 REM жжж ACTION LOOP eer KJ 
100 VP=VP+1:IF VP>VZ THEN ҮР-/) BH 
“110 НР=НР-1:ІЕ НР<0 THEN HP=HZ GG 


“120 POKE VI(1),VV(VP) 10 
“130 POKE HT(0),HH(HP):POKE HR,HB(HP):POK 


E HT(1),HH(HP) LP 

“140 WV=WV-1:IF WV<1 THEN WV-8 EG 
150 PRINT DD$MID$(ST$,WV,40)"[HOME]"; CI 
+196 GOTO 100 CF 
*198 REM *** WAIT FOR RESPONSE *** НО 
*296 RETURN IM 
*298 REM жжж ENDING ROUTINES *** NL 
+300 PRINT "[CLEAR]FINAL SCORE:  "RT*1004 


VP*10:PRINT: PRINT: VP=15:POKE ҮТ(0),УУ(ҮР 
) NM 


*310 PRINT "TO PLAY AGAIN, PRESS P':PRINT 
"TO QUIT, PRESS Q":HP=79 JE 
*315 HP=79:POKE HR,HB(HP):POKE НТ(0),НН(Н 


P):XP-1:POKE LT(0),ST(XP) JM 
+320 Z-PEEK(203):1F 2-62 THEN 370 EA 
+325 POKE HT(0),HH(HP):POKE HR,HB(HP) AO 
“330 НР-НР%1:ТЕ HP>HZ THEN НР-/) FJ 
“345 IF Z<>41 THEN 320 PE 
“350 BG=0:DL=0:DT=1:DS=5:RT=0:RC=0:GOSUB 

930:60Т0 100 AK 


“369 REM ** PUT VIDEO MEMORY BACK TO FIRS 
Т BLOCK, AND SCREEN MEMORY TO 1024 
“370 POKE 56578,PEEK(56578)OR3:POKE 56576 


,(PEEK(56576)AND 252)0R 3 MB 
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“371 POKE 53272,20:РОКЕ 648,4 

+379 REM ** REENABLE SHIFT/COMMODORE AND 
RUN-STOP/RESTORE ЕВ 
“380 POKE 657,0:РОКЕ 792,71:РОКЕ 898,237 РК 


OM 


*390 END IC 
“598 REM *** ARRANGE MEMORY *** KB 
*599 REM USE FIRST VIDEO BLOCK (0 TO 1638 

3) SO NOTHING FANCY HAS TO BE DONE. ME 


“600 VB=0 

+601 REM ** SCREEN MEMORY STAYS WHERE IT 
15 

“608 КЕМ 
+609 REM ** SPRITE SHAPE LOCATION TABLE 
“610 LT(0)22040:FOR 1=1 TO 7:LT(1)=LT(I-1 
)+1:МЕХТ НР 
“611 КЕМ ** SPRITE COLOR TABLE LA 
“612 CT(0)-53287:FOR I=1 TO 7:CT(I)-CT(I- 
1)+1:NEXT AN 
“613 REM ** SPRITE HORIZONTAL POSITION TA 
BLE (LOW BYTES) CH 
“614 HT(%)=53248:FOR І-1 TO 7:HT(I)-HT(I- 
1)+2:NEXT KC 
“615 REM ** SPRITE VERTICAL POSITION TABL 

Е 

“616 VT(0)-53249:FO0R І-1 TO 7:VT(I)-VT(I- 
1)+2:МЕХТ АЈ 
“617 REM ** SPRITE HORIZONTAL HIGH-BIT cm 
GISTER 


HP. 


жжж REGISTER ADDRESSES *** ЕЈ 
IF 


*618 HR-53264 5 
*619 REM %% SPRITE ENABLE REGISTER AF 
*620 Е5-53269 FE 


*621 REM ** VERTICAL EXPANSION REGISTER ( 
1=DOUBLE HEIGHT) IB 
*622 VE=53271 
*623 REM *** HORIZONTAL EXPANSION REGISTER 
(1=DOUBLE WIDTH) 
*624 НЕ-53277 FC 
*625 REM ** SPRITE PRIORITY REGISTER (1-5 
PRITE IS IN FRONT OF FOREGROUND) GM 
*626 PR=53275 FJ 
*627 REM ** MULTICOLOR ENABLE REGISTER (1 
=MULTI-COLOR ENABLED) IM 
*628 ЕМ-53276 EK 
*629 REM *** SPRITE MULTICOLOR COLOR REGIS 
TERS 
*630 MR-53285:REM ('O1' REGISTER: ADD 1 T 
O MR FOR '11' REGISTER) LJ 
*631 REM *** SPRITE-SPRITE COLLISION REGIS 
TER 
“632 С5-53278 
“633 REM ** SPRITE-FOREGROUND COLLISION R 
EGISTER 
“634 СЕ-53279 ЕК 
“635 REM ** SET-BIT AND CLEAR-BIT VALUES ВІ 
*636 BS(0)-1:FOR І-1 TO 7:BS(I)=2*BS(I-1) 
:МЕХТ МЕ 
“637 FOR І-0 TO 7:BC(I)-255-BS(I):NEXT LB 
*638 REM жжж INITIALIZE VALUES *** DK 


GC 


OH 
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“639 REM ** FOREGROUND COLOR FL 
+640 POKE 53281,6:PRINT "[CLEAR][BLUE]";: 

REM (BLUE) cc 
*641 REM ** BACKGROUND COLOR DK 
*642 POKE 53281,14:REM (LIGHT BLUE) AH 
*643 REM ** BORDER COLOR BE 
*644 POKE 53280,0:REM (BLACK) II 
*645 REM ** SPRITE COLORS (DEFAULTS: WHI, 

RED, L-GRN, PUR, GRN, BLU, YEL, M-GRAY ) IE 


+646 POKE CT(0),0:POKE CT(1),2:REM (THE S 
HIP IS BLACK, THE ROCKET RED) 16 


“647 КЕМ ** SET PRIORITY EF 
“648 POKE PR,255:REM (ALL BEHIND) JD 
+649 REM ** SET HORIZONTAL SIZES BJ 


“650 POKE HE,1:REM (SHIP IS DOUBLE WIDTH, 
ROCKET IS NORMAL WIDTH) PP 
*651 REM ** SET VERTICAL SIZES сс 
“652 POKE VE,2:REM (ROCKET IS DOUBLE HEIG 
HT) NG 


*653 REM ** ENABLE SPRITES ор 
«654 POKE ES,BS(0) OR BS(1):REM (SPRITES 

0 AND 1) LP 
“696 RETURN IM 
+698 REM жжж SET UP OCEAN *** JG 
+700 R$=CHR$(18) :RX$=CHR$(146):Bg=""_" BJ 


“701 FD$=CHR$(162)+CHR$(185)+CHR$(175)+CH 
R$(228) HJ 
*703 FU$=B$+CHR$(228)4+CHR$(175)+CHR$(185) BF 
+705 S$=R$:FOR І-1 TO 40:S$-S$4B$:NEXT:S$ 

=S$+RX$ BI 
+706 ST$=FU$+FD$+FU$+FD$+FU$+FD$:ST$=ST$+ 

5т$ LC 
+707 DD$-" [HOME] [20" [DOWN ]" ]" 
+708 WV=8 JO 
+710 PRINT "[CLEAR]"DDSMIDS(ST$,WV,40)8$8 

S$S$LEFT$(S$, 40)" [HOME]"RX$ ; EM 


EL 


*711 POKE 2023,160 BH 
*796 RETURN IM 
*798 REM *** SPRITE SHAPES *** cD 
+799 REM ** NUMBER OF SPRITE SHAPES (-1); 

NUMBER OF LINES PER SPRITE SHAPE (-1) CE 
“800 NS-1 ID 
*801 REM *** LOCATE SPRITE SHAPE MEMORY ОМ 


*802 57(0)-13:57(1)-14 OI 
*803 REM ** LOOPS 

*804 FOR I= TO NS:FOR Ј=0 TO 20:READ 55$ 
:FOR К-0 TO 2:X=0:Y=VB+ST(1)*64+J*3+K IG 
“805 REM ** CONVERT STRINGS TO SHAPE BYTE 


S (USE BS(0-7) TO SET BITS) LA 
+896 FOR Lel TO 8:M=L+8*K:M=ASC(MID$(SS$, 
M,1)):IF M«42 THEN X=X OR BS(8-L) 

+807 NEXT:POKE Y,X:NEXT:NEXT:NEXT HP 
«809 REM SPRITE SHAPE DATA, 21 LINES PER 

SHAPE: *='0N' „='ОЕЕ! 

+810 DATA "[9"." J&[ 14" ," ]" AG 
+811 DATA "|9 В AG 
+812 DATA "[9"."]*,„**[10"," ү" AG 
«813 DATA "[9"."]*,„**[1у","]" AG 


IMPORTANT! spre ctnoresatotalintometion on entering Ahoy! programs: Ree o those pages before entering any prosramel 
+814 DATA "[8"."]**,„ж**[1о","]" IK +929 REM ** INITIAL SPRITE POSITIONING 10 
-B15 DATA "|в" (зе ] IQ" ]" LO -930 HP=160:VP=0 LG 
+816 DATA мугон" AG +931 POKE ҮТ(0),УҮ(ҮР):РОКЕ НТ(0),НН(НР): 
+817 DATA ШІСІ Ш FG POKE HR,HB(HP) AC 
+818 DATA LC +932 POKE VI(1),VV(VP):POKE НТ(1),НН(НР) CB 
+819 DATA "[24"&"]" LC -939 REM ** TELL VIC-2 WHERE TO FIND SPRI 
+820 DATA "..[20"*"].," HC TE SHAPES KK 
+821 DATA "[3"."][18"*"][з" МС +940 POKE LT(0),ST(0):POKE LT(1),ST(1) ЕК 
+822 DATA ШЕШЕ Ш МС +996 RETURN IM 
+823 DATA "[3" anm NG 
+824 DATA "[5"."][18"ж"],," HC 
+825 DATA "ES." [1 7", ." с TUMBLING DICE 8. 
+826 DATA Б PC * 
«827 DATA "[24";"]" с DATA STRUCTURES 
+828 DATA "[24". P 
2829 ТАТА "однин x FROM PAGE 37 
*830 DATA "[24"."]" PC DICE SIMULATOR 
+831 REM ** 2ND SPRITE SHAPE AB -1 REM т 
+832 DATA "[21"."]*.." AG -2 REM — DICE SIMULATOR -- BA 
+833 DATA "[21"."]*.," AG +3 REM RUPERT REPORT #21 0I 
«834 DATA "[20","][3"*"]," LG +4 REM т 
+835 DATA "[20","][3"*"]," LG «5 REM RANDOMLY SIMULATE THE EL 
+836 DATA "[20" "J| 3" ] ." LG «6 REM OUTCOMES FOR ROLLING THREE DICE JE 
+837 DATA "[20","][3"*"]," LG «7 REM JD 
+838 DATA "[20"."][3' LG “8 REM >>DETERMINE THE PROBABILITY THAT С 
+839 DATA "[20","][3!^* LG -9 REM THE SUM IS ELEVEN ND 
+840 DATA "[20"."]*„*," РС «10 Nel : RS=CHRS(18) :REM RVS ON ME 
+841 DATA "[20"."]ж.ж." PC «20 PRINT CHR$(147); JL 
+842 DATA "[24"."]" PC +30 PRINT TAB(15)R$;"<< # ROLLS " Do 
+843 DATA "[24"."]" PC +40 PRINT TAB(15)R$;"«« # SUCCESS " AG 
+844 DATA "[24", " ]" PC +50 PRINT TAB(15)R$;"<< 2 PROBABILITY " ВО 
+845 DATA "[24", " ]" PC +60 A-INT(RND(0)*6)1 PI 
+846 DATA "[24". " ]" PC +70 BeINT(RND(0)*6)41 AL 
+847 DATA "[24"."]" РС «80 C=INT(RND(0)*6)+1 A0 
+848 DATA "[24", " ]" РС -90 TTL=A+B+C ІК 
+849 DATA РС +100 IF TTL=11 THEN SXCS=SXCS+1 KO 
«850 DATA PC «110 PRINT CHR$(19);N : PRINT SXCS M 
+851 DATA PC «120 PROB=100*SXCS/N : PRINT PROB JG 
+852 DATA "[24"."]" PC +130 N=N+1 CJ 
7853 DATA "[24","]" PC -140 GOTO 60 PG 
+896 RETURN IM 
+898 REM Ҹәк SPRITE POSITIONS *** КА DICE ANALYZER 
+899 REM % POSSIBLE POSITIONS DIM'ED МК +1 REM JD 
*900 VZ=32:HZ=362:DIM HH(HZ),VV(VZ),HB(HZ +2 REM — DICE ANALYZER — OE 

OD +3 REM RUPERT REPORT #21 or 
+901 REM ** ASSIGN HORIZONTAL VALUES ТА -4 REM т 
1902 X=0:Be0:FOR 1-0 TO HZ:HH(I)=X:HB(I)= “5 REM ENUMERATE ALL POSSIBLE FL 

B IJ +6 REM OUTCOMES FOR ROLLING THREE DICE ЈЕ 
*903 XeX+1:IF X>255 THEN Х-Х-256:В-3 HC +7 REM JD 
*904 NEXT IA +8 REM >>CALCULATE THE PROBABILITY THAT МА 
«905 REM ** ASSIGN VERTICAL VALUES LF -10 REM 1) 3 ONES ARE ROLLED NP 
:906 X«202:FOR 1-0 TO 9:VV(I)=X:X=X-1:NEX -11 REM 2) AT LEAST 1 THREE AND 1 SIX 
T:FOR 1-10 TO 14:УҮ(1)-Х:Х-Х-2:ХЕХТ LA ARE ROLLED HM 
+907 :FOR 1-15 TO 18:WV(I)eX:X-X-3:NEXT:F 12 REM 3) NO TWOS ARE ROLLED НЕ 
OR 1-19 TO 21:УУ(1)-Х:Х-К-6:МЕХТ CN +13 REM 2) THE SUM IS ELEVEN DN 
+908 FOR 1-22 TO VZ:VV(I)=X:XeX-12:NEXT FA +14 REM т 
* Bug Repellent line codes at right of program lines are for C-64 only! See VIC codes on next page. 99 


AHOY! 
oldgamesitalia. 


IMPORTANT! “ғ: ол у/зіе sacioreund are Bug Repellent line codes. Do not enter them! Pages 85 and 66 explain these codes 
1 and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


415 REM >ON THE NTH ROLL (№ = 1 TO 216): DF 
*16 REM ROLL(N,Y) = DIE Y'S VALUE DF 
*17 REM CT(N,Z) = # DICE WITH VALUE Z KK 
*18 REM TTL(N) = SUM OF DICE VALUES AH 
*19 REM JD 
*20 DIM ROLL(216,3),CT(216,6) ,TTL(216) , RN 
UM(216) JN 
*30 №1 : М1 : PRINT CHR$(147) HH 
*40 FOR А=1 TO 6 : FOR В-1 TO 6 FJ 
“50 FOR С-1 TO 6 ID 
*60 PRINT A;B;C oD 
“70 ROLL(N,1)=A:ROLL(N,2)=B:ROLL(N,3)=C OL 
“80 CT(N,A)=CT(N,A)+1 :CT(N,B)=CT(N,B)+1 HH 
“90 CT(N,C)=CT(N,C)+1 NP 
+100 TTL(N)=A+B+C IA 
*110 NeN«l : NEXT С: NEXT B : NEXT A BN 
*120 PRINT"CALCULATING [3"."] " JP 
"130 FOR Nel TO 216 АЕ 
"140 :IF CT(N,1)=3 THEN Tl=T1+1 LI 
4150 :IF СТ(М№,3)>=1 AND CT(N,6)>=1 THEN Т 
2=Т2+1 ЕА 
160 :IF СТ(М№,2)=0 THEN T3=T3+1 FE 
170 :IF TTL(N)=11 THEN T4=T4+1:RNUM(M)=N 
:М=М+1 LE 
*180 NEXT N NA 
*190 PRINT JJ 
*200 PRINT,"# SUCCESS"," % PROBABILITY" ЈО 
*210 PRINT "TEST 1",T1,T1*100/216 OL 
*220 PRINT "TEST 2",T2,T2*100/216 EM 
*230 PRINT "TEST 3",T3,T3*100/216 OF 
“240 PRINT "TEST 4",T4,T4*100/216 NO 
+250 PRINT JJ 
+260 PRINT"SUCCESSFUL ROLLS FOR TEST 4:" HD 
*270 FOR М=1 TO T4 06 
+280 RM=RNUM(M) CB 
*290 PRINT ROLL(RM, 1) ; ROLL(RM, 2) ; ROLL(RM, 
3), LA 
*300 NEXT M NB 
VIC 20 BUG REPELLENT LINE CODES FOR 
TUMBLING DICE & DATA STRUCTURES 
DICE SIMULATOR 
#1: JD #7: JD #40: LK # 100: GC 
# 2: PB #8: KJ #50: ME # 116: NO 
#3: ОЕ #9: LG #60: PI # 120: CM 
# JD #10; MI #70: AL # 130: CJ 
# XL # 2 JH #80: AO # 140: PD 
#6 MK E4480: FO Ғ90: 5 LK EE 
DICE ANALYZER (16K EXPANSION REQUIRED!) 
#1: JD #7: JD #14: JD #20: EG 
# 2: ІК %8: JI #15: ІС # 30; НА 
$3: OB Wat OI #16: IH #40: ЕР 
ФАИ ID 1 MM #17: IE # 50: HK 
P5: EF #1 FC #18: PO % 60: OF 
#6: МК #13: GD #19: JD #70: OL 


# 80: EA #140: IL # 200: GN # 260: MG 
%9 NP # 150: JO % 210: NK # 270: OM 
# 100: ТА # 160: IB E # 280: CB 
# 110: АЛ % 170: FF # 290: NG 
# 120: EL # 180: NG # 300: NH 
#130: ON #196: JJ # 250: JJ C= 
ADDRESSING THE 
COMMODORE, PART 1 


FROM PAGE 77 

[See article for instructions on entering!) THE QUEST 
10 
20 
30 
40 
) 
50; 
60 BUFLEN=23 
70 CHROUT=$FFD2 


; 
;THE QUEST 
"#28000 OR 'ORG EQU 58000! (OR $2000 


80 
90 
100 
110 
120 
130 
140 ; 
150 BEGIN LDX #0 
169 ; 

170 
180 
190 
200 
210 
220 


' UMP. BEGIN 


TEXT .ВҮТЕ 87,72,69,82,69,32,73,83 
-BYTE 32,84,72,09,32,07, 79, 77 
‘BYTE 77,79,68,79,82,69,63 


LOOP LDA ТЕХТ,Х 
JSR CHROUT 

INX 

CPX #BUFLEN 
BNE LOOP 

RTS 


RESPONSE 
; RESPONSE 
"#2$8000 ;OR "ОВС EQU 58000! (OR $200 
5 
EOL=13 ;END-OF-LINE CHARACTER 
BUFLEN-4O ;LENGTH OF TEXT BUFFER 
FILLCH=$20 ;ASCII CODE FOR A SPACE 
CHROUT=$FFD2 


100 ; 


110 JMP START 


TEXT «BYTE 'YOU CAN FIND НІМ IN 64K" 


iCLEAR TEXT BUFFER 
START LDA #FILLCH 


ttp://www.oldgamesitalia.net/ 


LDX #BUFLEN 
STUFF DEX 

STA TXTBUF,X 
210 BNE STUFF 
220 ; 


E 
230 ;STORE MESSAGE IN BUFFER 
240 ; 

250 
260 
270 
280 
290 
300 
310 
320 
330 ; 
340 ;PRINT MESSAGE 
350 ; 

360 PRINT LDX #0 

370 LOOP2 LDA TXTBUF,X 
380 PHA 

390 JSR CHROUT 

400 PLA 

410 СМР £EOL 

420 BNE NEXT 

430 JMP FINI 

440 NEXT INX 

450 CPX #BUFLEN 

460 ВСС LOOP2 

40; 

480 FINI 

490 RTS 

500 ; 
510 TXTBUF=* 
520 *=*+BUFLEN 
530 ; 

540 .ЕМ) 


SUPERHERO 
FROM PAGE 17 


*10 REM SUPERHERO 

“20 REM BY J.C.HILTY 

*30 REM 1036 BARNSLEY DR. 

*4() REM LIBRARY,PA.,15129 

100 PRINT"[CLEAR]" 

“102 SR=0:ALT=000 

103 0-192:1/:1141:С-28:СМ-54272:М-0 


180 
190 
200 


LDX #0 
LOOP1 LDA TEXT,X 
STA TXTBUF,X 
CMP ЖЕСІ, 

BEQ PRINT 

INX 

CPX #BUFLEN 
BCC LOOPl 


*105 V=53248:0=54272 HC 
+108 РОКЕ 52,48:POKE 56,48 ІС 
%110 РОКЕ 53281, 6:POKE 53280, 2 DD 


+120 PRINT" [ DOWN ] [DOWN ]"TAB(5)" [RVSON] [RE 
р][7" "][c *]" 

*130 PRINT TAB(5)"[RVSON][8" "][c жү" 
“140 PRINT TAB(S)"[RVSON][BLACK] [RED] [Y 
ELLOW][7" "][RED] [c *][RVSOFF] [RVSON][ 
BLACK] [RED] [c *][BLACK] [RED] [c *][B 
LACK] [RED] [c *][BLACK] [RED] [c *]" CE 


+150 PRINT TAB(S)"[RVSON][BLACK] [YELLOW 
1[7" "][BLACK] [RED] [c *][BLACK] [RED] 
[BLACK] [RED][3" "J[BLACK] [RED][3" i 
[BLACK] [RED] (с *]" 
+160 PRINT TAB(S)"[RVSON][BLACK] 
М5" "][BLACK][3" "][YELLOW] [BLACK] [ 
YELLOW] [BLACK] [YELLOW][3" "][BLACK] [ 
YELLOW][3" "][BLACK] [YELLOW][3" "]" 
+170 PRINT TAB(S)"[BLACK][c *][RVSON] [YE 
LLOW][7" "][BLACK] [YELLOW] [BLACK] [Y 
ELLOW] [BLACK] [YELLOW] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [BLACK] [YELLOW] [B 
LACK] [YELLOW] " IA 
+180 PRINT TAB(6)"[BLACK][c *][RVSON][YEL 
LOW][7" "][BLACK] [YELLOW] [BLACK] [YE 
LLOW] [BLACK] [YELLOW][3" "][BLACK] [YE 
LLOW] [RVSOFF] [RVSON][BLACK] [YELLOW][ 
3" "J[BLACK][c *]" IB 
+190 PRINT TAB(10)"[RVSON][BLACK]  [YELLO 
W] [BLACK] [YELLOW] [BLACK] [YELLOW] 
[BLACK] [YELLOW] [RVSOFF] [BLACK][c *][ 
RVSON] [YELLOW][3" "][RVSOFF][BLACK][c * 
]{RVSON] [YELLOW] [RVSOFF] [BLACK][c *][R 
VSON][YELLOW] " GP 
+200 PRINT TAB(5)"[RVSON)[BLACK] [RED][4" 
"J[BLACK] [YELLOW] [BLACK] [YELLOW][6 
" "J[RVSOFF J[BLACK (с *][RVSON }[ YELLOW } 


(шш. 


JG 


+210 PRINT TAB(5)"{RVSON][BLACK] [RED] [4 
" ") BLACK] [YELLOW] | [RVSOFF ] [ BLACK ]{c 
*)][RVSON] [YELLOW ][6" "|" EG 
+220) PRINT TAB(5)"[BLACK][c *][RVSON] [YE 
LLow)(7" "J" t 
+230 PRINT TAB(6)"[BLACK][c *][RVSON][YEL 
LOW])[7" "J[RVSOFF] [RVSON][BLACK] [RED][ 
c *][BLACK] [RED][c *][RVSOFF] [RVSON][B 
LACK] [RED][3" "][c *][RVSOFF] [RVSON][B 
LACK] [RED] [c *][RVSOFF] [RVSON][BLAC 
К] [ВЕР] [c *]" CL 
+240 PRINT TAB(15)"[RVSON][BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [RVSON][BLAC 
X] [YELLOW][4" "][RVSOFF] [RVSON] [BLACK] 
[YELLOW][3" "][RVSOFF] [RVSON] [BLACK ] 
[YELLOW][3" "]" 
+250 PRINT TAB(15)"[RVSON][BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [RVSON][BLAC 
K] [YELLOW] [BLACK] [c *][RVSOFF] [RVSO 
N] [YELLOW] [BLACK] [YELLOW] [RVSOFF] [ 
RVSON][BLACK] [YELLOW] [BLACK] [YELLOW] 
М LE 
+260 PRINT TAB(15)"{RVSON][BLACK] [YELLOW 
][3" "][RVSOFF] [RVSON][BLACK] [YELLOW][ 
3" "][RVSOFF] [RVSON)[BLACK] [YELLOW][3 
" "][RVSOFF] [RVSON][BLACK] [YELLOW] [B 
LACK] [YELLOW] " 
+270 PRINT TAB(15)"[RVSON][BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [RVSON][BLAC 
K] [YELLOW] [BLACK] [c *][RVSOFF] [RVSO 


101 


СІ 


АНОҮ! 


N][BLACK] [YELLOW] [BLACK][RVSOFF][c *][ 
RVSON][YELLOW] [RVSOFF] [RVSON][BLACK] 
[YELLOW] [BLACK] [YELLOW] " 
*280 PRINT TAB(15)"[BLACK][c *][RVSON][YE 
LLOW] [RVSOFF][BLACK][c *][RVSON][YELLOW 
] [RVSOFF] [BLACK][c *][RVSON][YELLOW][4 
" "][RVSOFF] [BLACK][c *][RVSON][YELLOW] 
[RVSOFF] [BLACK][c *][RVSON][YELLOW] [R 
VSOFF] [BLACK][c *][RVSON][ YELLOW][3" "] 


HA 


NN 
+290 PRINT JJ 
*300 PRINT TAB(9)"SAVE THE SPACE SHUTTLE" LL 
*310 PRINT TAB(16)"PRESS ANY KEY" KL 
“320 СЕТ A$:IF A$="" THEN 320 HI 
+330 PRINT"[HOME]":PRINT"[21"[DOWN]"]" T 

AB(15)"PLEASE WAIT[3"."]" JI 


*340 PRINT TAB(15)"READING DATA" GH 
*370 FOR X=12288 TO 12350 GB 
*380 READ A:POKE X,A:NEXT BA 
*390 FOR Х-12352 TO 12414 DG 
*40( READ A:POKE X,A:NEXT BA 
*410 FOR X= 12416 TO 12478 FD 
*42() READ A:POKE X,A:NEXT BA 
*430 FOR Х-12480 TO 12542 DC 
+440 READ A: POKEX, A: NEXT BA 


*464 FOR Х-828 TO 973 KC 
*466 READ A:POKEX,A:NEXT BA 
+470 PRINT"[CLEAR]" HH 
:480 POKE 53280,0:РОКЕ 53281,0 BH 
490 POKE 2040,194:POKE 2041,195 ІР 


500 POKE V+39,6:POKE V+40,1 DA 
“510 POKE V40,70:POKE V+1,80:POKE V+2,70: 
POKE V+3,140 E. 
*530 POKE V429,3:POKE V423,3 MB 
%540 POKE V+28,1:POKE У%37,10:РОКЕ V+38,2 OD 
*550 PRINT"[HOME]": PRINT" [DOWN] [CYAN ] "TAB 
(12)"GRAPHICS[3" "]CHART" 

"560 POKE V+21,3 

“570 PRINT"[5"[ DOWN]"]!"TAB(12)" [EP] 6" M 
SUPERHERO" 

fon PRINT" [ 6" [ DOWN ]" ]"TABC 18)"spucesuuTE " 


AF 


СА 
б. PRINT" [4 [DOWN |" J"TABC12)"[GREEN]*[C 
YAN][5" "]ZYPTONITE METEOR" 
“600 PRINT"[DOWN]"TAB(14)"PRESS ANY KEY" 
“610 GET A$: IF A$="" THEN 610 Ic 
620 PRINT" [CLEAR]":POKE V+21,0 
"630 POKE 53280,2:POKE 53281,0 
“700 DIMA(3) 
“710 А(0)-2:А(1)--80:А(2)--2:А(3)-80 
720 WL=160;HL=32:SC=1024 : A=SC+81 
“740 FOR I«1 TO 6 


+741 PRINT "[RVSON][GREEN][15" "][RV 
SOFF][7" "J([RVSON][17" "]" FF 
*742 NEXT I MN 
*744 FOR I-1 TO 9 Jc 
“745 PRINT "[RVSON][39" "]" GO 
*746 NEXT I MN 
JD 


*748 FOR I-1 TO 8 
ü 


“750 PRINT" 
VSON][17" "]" 


SON][15" "][RVSOFF][7" "][R 
PM 


*760 NEXT I MN 
“770 POKEA, 4 DL 
“780 J-INT(RND(1)*4):X-J MO 


*790 B-A«A(J):IF PEEK(B)=WLTHENPOKEB, J: PO 
KEA+A(J)/2,HL:A=B:GOTO 780 

*800 J=(J+1)*-(J<3):IF JX»XTHEN790 

+810 J-PEEK(A):POKE A,HL:IFJ<4THENA=A-A(J 
):60Т0 780 HB 

«820 PRINT" (HOME)":PRINT"[15"[DOWN]"]"TAB 
(16)"[ CYAN ]SCORE" n 

“830 PRINT TAB(17);SR 

*831 PRINT" [ 4" [DOWN ]" ] TAB (16) ALT" : PRINT“ 
TAB(16); ALT 

"832 POKE 2040,192 

“833 POKE Ү+0,150:РОКЕ V+1,60:POKE V+2,15 


BP 


0:РОКЕ V43,190 OK 
“834 POKE V+21,3 ЕС 
“840 POKE 1113,81 :РОКЕ 1113+CM,7 PJ 
“842 POKE 1835,81:POKE 1835+CM,7 JF 
*844 POKE 1825,81:POKE 1825+CM,7 AH 
*846 POKE 1509,81:РОКЕ 1509%СМ,7 EP 
*848 РОКЕ 1599,81:POKE 1599%СМ,7 EF 
«850 РОКЕ 1605,81:РОКЕ 1605%СМ,7 PL 
“852 POKE 1137,8 11374CM,7 AF 
*854 POKE 1131,8 113140M,7 GJ 
*856 POKE 1857,8 1857+CM,7 JF 
“858 РОКЕ 1851,8 1851%СМ,7 GJ 
“860 РОКЕ 1141,28:РОКЕ 1141+CM,3 FE 
“865 POKE A,42:J=2 ос 
*870 О=0+1:1Е Q=195 THEN Q=192 AK 
“871 POKE 2040,0 OH 
"872 ALT=ALT+1 FP 
°873 IF ALT=800THEN3500 DP 


«875 PRINT"[HOME]" : PRINT"[22" [ DOWN]"] [CYA 
N]" TAB(16);ALT AJ 
*876 B=A+A(J)/2 

“877 IF PEEK(B)=32THENPOKEB,42:POKEA,32:A 


=B: J=(J+2)+4*(J>1) LG 
+878 IF PEEK(B)=81 THEN POKE B,42:POKE А, 

81:РОКЕ A+CM,7:A=B:J=(J+2)+4*(J>1) KJ 
“879 IF PEEK(B)=28 THEN 3000 IG 
«880 J=(J-1)-4*(J=0) HI 
«881 SYS(828):R-PEEK(254)-PEEK(253) МІ, 
“890 IF R= THEN 870 AO 
*900 W=PEEK(L+R) GN 
“910 IF W=81 THEN 1500 НІ 
«920 IF W<>32 THEN 870 PH 
*930 L=L+R:POKE L-R,32:POKE(L-R)+CM,5 BN 
+940 POKE L,C:POKE L+CM,3 BB 
*956 GOTO 870 cP 
1500 M=M+1:IF М-10 THEN 2500 ІН 
*1505 L=L+R:POKE L-R,32 BD 
*1510 POKEL,C:POKEL+CM,3 BB 
“1520 GOSUB 2000 FL 
“1530 PRINT" [HOME ]":SR=SR+10:PRINT"[16"[D 

OWN]" ][ CYAN]"TAB(17) ;SR HG 


+1540 GOTO 870 


IMPORTANT! 


“2000 FOR Х=0 TO 0+24:РОКЕ X,0:NEXT 
“2010 POKE 0,150:РОКЕО--1,200:РОКЕО--5,8:Р0 


СЕ 


KEO+6, 248 NL 
2020 РОКЕО+24,15:РОКЕО+4,17 GB 
+2030 FOR T=T050:NEX' IM 
+2040 POKEO+4,16 GC 
+2050 FOR T=9T050:NEXT IM 
+2060 POKEO+24,9 GH 
“2070 RETURN IM 
“2100 FOR Х-0 TO 0+24:POKEX,(:NEXT CH 
“2110 POKEO+24,15:POKEO+12, 160: POKEO+13, 2 
JO 


2120 РОКЕО+8,80:РОКЕО+7,40:РОКЕ 0%11,129 FB 
“2130 FOR T=0TO100:NEXT LC 
“2140 POKEO+11,128:RETURN Б 
+250) PRINT" [CLEAR |" 

.2502. 


HH 
PRINT" [CYAN ] [ 15" [ DOWN]" ]"TAB(6)"CON 
GRATULATIONS" GK 


+2503 PRINT"[DOWN][6" "]PLAY ON!" КЕ 
“2504 FOR Т-/) TO 3000:NEXT РІ, 
+2510 M=) DG 
+2520 SReSR+100:ALT=ALT -200 NI 
2525 11141 LN 
+2528 PRINT" [CLEAR]" HH 
“2530 GOTO 710 СА 
3000 PRINT" [CLEAR ]" HH 
"3005 FOR Т=1 TO 30 NI 
"3010 POKE V+39,2:POKE Ү+39,1:РОКЕ V+39,6 LL 


“3020 NEXT IA 
“3030 GOSUB 2100 FE 
“3040 рК е зг, А ZYPTONITE 


METEOR CRUSHED YOU. NE 
+305 FOR T=0 TO 3000: NEXT PL 
*3060 GOTO 4000 FF 
*3500 PRINT "[CLEAR]" HH 
“3510 FOR Т-1 TO 20 МЕ 
“3520 POKE V+40,2:POKE V+40,6:POKE Үз40,1 D 
*3530 NEXT 
*3540 GOSUB 2100 FE 


«3550 PRINT"[12"[DOWN]"][CYAN]THE SHUTTLE 


IS 800 MILES UP--T00 LATE." XF 
“3560 FOR T= ТО 3000:NEXT PL 
*3570 GOTO 4000 FF 


+4000 PRINT" [CLEAR]" 


*4005 POKE V+21,0 FF 
*4010 PRINT"[12"[DOWN]"][RED]S] CORE " 
¡SR OM 
+4020 PRINT"[DOWN][DOWN]PLAY AGAIN[3"-"]Y 
ORN" DK 
*4030 GET JUNK$:IF JUNK$<>""THEN 4030 FG 
*4040 GET A$:IF A$=""THEN 4040 10 
+4050 IF Аф-"Ү" THEN 4060 МЕ 
+4055 END Ic 
+4060 PRINT" [CLEAR |" HH 
+4070 М-0 DG 
“4080 L=1141 LN 
4090 ALT=000 ск 
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«4100 58-0 10 
“8110 GOTO 710 СА 
“6240 REM MULTICOLOR SUPERHERO ХЗ оғ 


«6250 DATA 0,160,0,0,144,0,0,144,0,0,192, 
0,3,160,0,12,160,0 

+6260 DATA 48,160,0,48,160,0,48,160,0,48, 
128,0,192,128,0,192,192,0 MJ 
“6270 DATA 192,192,0,192,128,0,192,128,0, 
0,128,0,0,128,0,0,192,0 AN 
+6289 DATA 0,192,0,0,192,0,0,240,0 

“6290 DATA 0,160,0,0,144,0,0,144,0,0,192, 
0,3,160,0,14,160,0,50,170,64,50,170,64 
+630) DATA 50,160,0,56,128,0,204,128,0, CR 
6,192,0,192, 192, 0, 194, 32, f 

+6310 DATA 194, 32,0,8,8,0,8,8,0,48,12,0, | 
8,12,0,12, 12,0,0,15,0 

+6320 DATA 0,160,0,0,144,0,0,144,0,0,192, 


16 


FI 
EI 


0,3,160,0,14,160,64,48,171,0,48,162,0 — HN 
*6330 DATA 48,164,0, 48, 136, 0,192,128,0,19 
2,192,0,192,192, 0, 194, 32, 0 MO 
“6340 DATA 194,32,0,2,32,0,2,32,0,2,32,0, 
3,48,0,3,48,0,3,252,0 GA 
+6350 REM SPACESHUTTLE EA 


+6360 DATA 0,0,0,0,0,0,32,0,0,32,0,0,48,0 
,0,56,0,0 0J 
-6370 DATA 63,255,192,63,255,224,61,85,48 
,63,255,56 OJ 
+6380) DATA 63,255, 252,12,62,0,8,60,0,8,56 
,0,0,48,0 GG 
+6390 DATA 0,32,0,0,0,0,0,0,0,0,0,0,0,0,0 
‚0,0,0 сс 
+6450 REM ML JOYSTICK ROUTINE 
“6460 DATA 173,1,220,74,176,40,74,74,176, 
11,169,0 
“6470 ПАТА 133,254,169,41,133,253,76,182, 
3,74,176,11,169,0,133,254,169,39 NM 
*6480 DATA 133,253,76,182,3,169,0,133,254 
,169,40,133,253,76,182,3,74,176 СА 
“6490 DATA 39, 74, 176, 11, 169, 39, 133,254,16 
9,0,133,253, 76, 182, de 74, 176, 11 KH 
+6500 DATA 169, 4, 133,254, 169, 0,133,253, " 
6,182,3,169,40, 133, 254, 169, 0 
+6510 DATA 133, 253,76,182,3,74,176,11, 6" 
19,133, 254,169, 1,133,253, 76, 182,3 


PM 


LG 


г +6520 DATA 74,176,11,169,1,133,254,169,0, 
CH 


133,253, 76,182,3,169,0,133, 254 
“6530 DATA 133,253,173,1,220,74,74,74,74, 


74,176,7,169,1,133,80,76,203,3 LJ 
+6540 DATA 169,0,133,80,96,234,234 EM 
FROM PAGE 30 

+0 PRINT"[CLEAR]" HH 


*1 DIMSU$(500) , TA$(500) , AN$ (500) ,MN$(500) 
,105(500),СМ5(500):Рф-",":ОРЕМ15,8,15 
“2 6070100 


ІВ 
СЕ 


http: 


“10 PRINT"[CLEAR]": PRINTTAB(12);"ONE МОМЕ 
NT READING": PRINT: PRINTTAB(20-LEN(Z$)/2) 
32$ FI 
*15 OPENS,8,5,"0:"+Z$+4",S,R":INPUT#5,AX, 
BX$,CX, pis: TFAXCPOTHENCOSUB9000: RETURN 
*18 FORI-1TO500:C-I FN 
“20 INPUT£5,SUS(I), TA$(I) , ANS(I) , MN$(I), I 
D$(I),CM$(I) à 
+30 IFSUS(I)-"EOF'THENCLOSE5: C»C-1: RETURN EM 
“40 NEXT IA 
“50 PRINT:PRINT"4( CHARACTERS MAXIMUM" :FO 
RIS1T04000: NEXT: PRINT" [CLEAR ]": RETURN 
“60 PRINT:PRINT"80 CHARACTER MAXIMUM": FOR 
I-1T04000; NEXT : PRINT" [ CLEAR]" : RETURN 
«80 OPEN5S,8,5,"@0:"+Z$+",S,W":FORI=1TOC 
*82 PRINT£5,SU$(I):PRINT£5, TAS(I) :PRINT£5 
5,ANSCI):PRINT£5,MN$(I):PRINT£5, IDS(I) 
*83 PRINT#5,CM$(I) :NEXT: I=C+1 FM 
+84 SU$(1)="EOF": TA$(I)="TITLE":AN$(I)="A 
UTHOR" :MN$(I)="MAG": ID$(I) " ISSUE" JO 
+86 CM$(I)e" COMMENT" : PRINT#5, SU$(I) : PRINT 
15, TA$(I):PRINT#5,AN$(I):PRINT#5,MN$(I) JP 


KB 


0J 


NF 


[s BJ[RVSOFF][5"-"][RVSON][3" "]SORT[3" 
"]-/- RECORD [RVSOFF][5"-"][RVSON][s B] 
[RVSOFF] [RED][s S][WHITE][s 51"; OE 
*200 PRINT"[RED][s S)[WHITE][s S] [RVSON] 
[s BJ[RVSOFF][5"-"][ RVSON][ 3" "JLIST[3" 
"]-/- RECORD [RVSOFF][5"-"][RVSON][s B] 
[RVSOFF] [RED][s S][WHITE][s S]"; MO 


DM +210 PRINT" [RED][s S][WHITE][s S] [RVSON] 


[s B][RVSOFF][5"="][RVSON][3" "]PRINT - 
/- RECORD [RVSOFF][5"="][RVSON][s B][RV 
SOFF] [RED][s S](WHITE][s S]"; MM 
+215 PRINT"[RED][s S][WHITE])[s S] [RVSON] 
[s B][RVSOFF][5"="][RVSON][22" "][RVSOFF 
][5"-"][RVSON][s B][RVSOFF] [RED][s S][W 
HITE][s S]"; 

-220 PRINT'[RED][s S][WHITE][s 
[s B][RVSOFF][32"="][RVSON][s 

[RED])[s S][WHITE][s S]"; 

*230 PRINT"[RED][s S][WHITE][s S] [RVSON] 
Іс 013216 C]"][c W][RVSOFF] [RED][s S] 
[WHITE][s S]"; IF 
+240 PRINT"[RED][s S][WHITE][s S] [RVSON] 


ND 
S] [RVSON] 
B][RVSOFF] 

DF 


«87 PRINT#5, ID$(I):PRINTÉ5, CM$(I) IK [s B][RVSOFF]"; :PRINTCHR$(159) ; : PRINT"[R 
*88 CLOSES: RETURN ж  VSON] F1[3"."JADD[4" "]";:PRINTCHRS(5); PG 
+100 PRINT"[CLEAR]": POKE53280, 6: POKE53281 «250 PRINT" [6"="]"; : PRINTCHR$(159) ; : PRINT 
SOLED RTO AREE ЧАН S][WHITE][s т _[RVSON]F2[3". "SEARCH "; : PRINTCHR$(31) 
S]"; :NEXT:PRINT"[RED][s S][WHITE][s 5)"; КІ MP 
“110 PRINT" [RVSON][c AJ[32"[s C]"][c S][ 260 PRINT" [WHITE][RVSON][s B][RVSOFF] [R 
RVSOFF] "; ЕР ED][s S][WHITE][s S]";:PRINT"[RED][s S][ 
2120 PRINT "[RED][s S][WHITE][s S]";:PRIN WHITE][s S] [RVSON][s B][RVSOFF]"; :PRINT 
T"[RED][s S)[WHITE][s S] [RVSON][s B][RV CHRS (159) ; PRINT"[RVSON] F3[3"." ]DELETE 
SOFF][32"="][RVSON][s B][RVSOFF] [RED][s BM 
SJ(WHITE][s S]"; HJ -270 PRINTOHRS(S) ; : PRINT" [6a ]"'; : PRINTCH 
*130 PRINT'[RED][s S][WHITE][s S] [RVSON] R$(159);:PRINT"[RVSON] FÁ[3"."]MODIFY "; BJ 
[s B][RVSOFF][S"2"][RVSON] [3"*"]AHOY DO 280. PRINTCHRS(31);:PRINT"[WHITE][RVSON][ 
CK FILE[3"*"] [RVSOFF][5"="][RVSON][s B] s B][RVSOFF] [RED][s S][WHITE][s S]";:PR 
[RVSOFF] [RED][s S][WHITE][s S]"; HD INT"[RED][s S][WHITE][s S] [RVSON][s B][ 
*140 PRINT"[RED][s S]{WHITE][{s 51 [RVSON] RVSOFF]"'; : PRINTCHRS(159) ; EO 
[s B][RVSOFF][5"»"][RVSON][22" "][RVSOFF +290 PRINT"[RVSON] F5[2", a SORTS" "Мир 
][5"="][RVSON][s B][RVSOFF] [RED][s S][W RINTCHRS(5); :PRINT"[6"="]"; IL 
HITE][s 517; ND +300 PRINTCHR$(159) ;:PRINT" [RVSON]FG[A". 
+150 PRINT" [RED][s S]{WHITE][s S] [RVSON] "JLIST[3" "]"; :PRINTCHR$(31); : PRINT"[WHI 
[s BJ[RVSOFF][5"-"][RVSON][3" "JADD[4" " TEJ[RVSON][s B][RVSOFF] [RED][s BE 
]-/- RECORD [RVSOFF][5"-"][RVSON][s B][ 118 SJ[WHITE]"; 
RVSOFF] [RED][s S][WHITE][s S]"; AC *310 PRINT"[RED][s S][WHITE][s S] ТЕТЕ 
+169 PRINT"[RED][s S](WHITE][{s S] [RVSON] [s B][RVSOFF]"; : PRINTCHRS( 159) ;:PRINT"[R 
[s BJ[RVSOFF][5"-"][RVSON][3" "]SEARCH - VSON] F7[3"."]PRINT ";:PRINTCHR$(5);: СЕ 


/- RECORD [RVSOFF][5"-"][RVSON][s B][RV 
SOFF] [RED][s S][WHITE][s S]"; 

*170 PRINT"[RED][s S][WHITE][s S] [RVSON] 
[s B][RVSOFF][5"="][RVSON][3" "]DELETE - 
/- RECORD [RVSOFF][5"-"][RVSON][s B][RV 
SOFF] (RED][s S][WHITE][s 5)"; 

*180 PRINT"[RED][s S][WHITE][s S] [RVSON] 
[s B][RVSOFF][5"-" ][ RVSON][3" "]MODIFY - 
/- RECORD [RVSOFF][5"="][RVSON][s B][RV 
SOFF] [RED][s S][WHITE][s S]"; 

*190 PRINT"[RED][s S][WHITE][s S] [RVSON] 


104 AHOY! 


HG 


IP 


http: 


+320 PRINT"[6"="]"; :PRINTCHR$(159) ; :PRINT 
ч [RVSON]F8[3"."JEND[4" "]"; :PRINTCHRS(3 
1): CL 
“330 PRINT"[WHITE][RVSON][s B][RVSOFF] [R 
ED][s S][WHITE][s S]";:PRINT"[RED][s S][ 
WHITE][s S] [RVSON][c Z][32"[s C]"][c D 
[RVSOFF]"; 

*340 PRINT" [RED][s S][WHITE][s E 
z1T040:PRINT"[RED][s S]";:PRINT"[WHITE][ 
s S]";:NEXT 

*350 GETRE$:IFRE$=""THEN350 


“360 IFRE$=CHR$(140)THEN680 PL 
“400 FORI-133TO140:IFRES-CHR$(I)THEN520 СК 
+410 NEXT ТА 


«420 PRINT" [CLEAR]":POKE53281 , 0: POKE53280 
„О: PRINT"[WHITE]": PRINTTAB(12) ;"INVALID 
RESPONSE" 

*430 PRINT:PRINTTAB(7);"PLEASE PRESS FUNC 
TION KEY":RE$z'":FORI-1TO4000:NEXT 

+440 GOTO100 

*450. ВАТАНЫН... SELE 


OL 


FD 
CF 


CTION MENU....+,+ + BN 
+460 DATA + 1--BUSINESS +,+ 2--DI 
SK OPERATION +,+ 3--EDUCATIONAL + АМ 
+470 DATA + 4--FUN AND GAMES %,% 5--GR 
APHICS +,+ 6--HARDWARE + BM 
“480 DATA + 7--НОМЕ USE + 8—LA 
NGUAGES-MLX ++ 9-—MISCELLANEOUS *IL 
*490 DATA + 10-MUSICAL + 11-SI 
MULATIONS ++ T2-SOFIWARE ^ +EI 
“500 DATA + ee +,+ 14-UT 
ILITIES * BJ 


*510 DATA+... PLEASE SELECT... e+, tttttttt 
ақынынан PN 

+520 PRINT" [CLEAR]":PRINT: POKE53280, 7 : POK 
E53281 , 1: PRINT" [ BLACK ]" : FORI=1T029:READM 


$ DE 
“530 PRINTTAB(9) ;M$ : NEXT: RESTORE: INPUT" [9 
"[RIGHT]"]" ; SE$: SEEVAL(SE$) K 


+532 ІЕ5Еб«"/"ТНЕМ440 МЕ 
+535 IFSE<LORSE>14THEN5S20 10 
“540 IFSE$="1"THENZ$="BUSINESS" АР 
+550 IFSE$="2"THENZ$="DISK OPERATION" EC 
+560 IFSE$="3"THENZ$="EDUCATIONAL" IG 
+570 IFSE$="4"THENZ$="FUN 8 GAMES" FA 


+580 IFSE$="5"THENZ$="GRAPHICS" OE 


+590 IFSE$="6"THENZ$="HARDWARE" LC 
+60) IFSE$="7"THENZ$="HOME USE" KE 
+610 IFSE$="8"THENZ$="LANGUAGES=MLX" GC 
*620 IFSE$="9""THENZ$ SCELLANEOUS" AI 
*630 IFSE$="10"THENZ$="MUSICAL" PJ 
640 IFSE$="11"THENZ$="SIMULATIONS" CK 
*650 IFSE$="12"THENZ$="SOFTWARE" BP 
*660. IFSE$-"13" THENZ$-" TUTORIAL" FJ 
“670 IFSE$S" L4" THENZ$E "UTILITIES" EI 


680 RE=ASC(RE$) : ON(RE-132)GOSUB1000, 2000 
13900, 4900, 5000, 6000 , 7000 , 8000. 


+690 Z$="XX":DE$=":DE=.:K1=.:GOTO100 EM 
7000 БЕМ КККК Е ДО ЕЕ Е О ЕЕЕ ЕЕ ЖЖ 

* ЕО 
«710 REM* WRITTEN BY GLENN LUMPKINS LF 
+720 REM* РЕВ. 1985 кр 
4730) БЕМА з е коо к 

ж EO 
+999 REM=====ADD ROUTINE===== oc 


+1000 PRINT" [CLEAR]":GOSUB19; PRINT" [CLEAR 
1":С=С+1 

+1010 ТЕК=1ТНЕМК=0: КЕТИКМ 

+1020) PRINTTAB(8);"[RVSON]: SUBJECT ОҒ 


GN 


http://w 


ARTICLE :[RVSOFF]" : PRINT"[ BLUE ]" ; : INPUTS 
US(C) AC 
*1025 IFSUS(C)-" /"THENRETURN DD 


*1030 IFLEN(SUS(C))»79THENGOSUB6O: PRINT: 
GOTO1020 

51040 PRINT" [BLACK ]" : PRINTTAB(8) ; " [RVSON] 
: TITLE[4" "JOF ARTICLE :[RVSOFF]":PRIN 
T"[BLUE]"; : INPUTTAS(C) FA 
-1045 IFTAS(C)-" /"THEN1020 GG 
+1950 IFLEN(TA$(C))»39THENGOSUB5O: PRINT:G 
0701040 

51060 PRINT" [BLACK ]": PRINTTAB(8) ; " [RVSON] 
: AUTHOR'S[B" "]NAME :[RVSOFF]": PRINT"[B 
ШЕТ"; : INPUTANS(C) 

+1065 IFANS(C)-"/" THEN1040 

+1079 IFLEN(ANS(C)) »39THENGOSUSB50: PRINT: 
GOTO1060 MO 
+1080 PRINT"[ BLACK ]":PRINTTAB(8) ; " [RVSON] 
:[SS]NAME[5" "JOF MAGAZINE :[RVSOFF]":PR 
INT"[BLUE]" ; : INPUTMNS(C) M 
+1085 IFMNS(C)-" /"THEN1060 M 
+1090 IFLEN(MN$(C) )»39THENGOSUB5O: PRINT:G 
0701080 AN 
+110) PRINT" [BLACK ]": PRINTTAB(8) ;"[RVSON ] 
:1550Е # / PAGE / DATE :[RVSOFF]": PRINT" 


PF 


LH 


17 
GC 


[BLUE]" ; : INPUTID$(C) ю 

+1105 IFIDS(C)-"/" THEN1080 HI 
G *1110 IFLENCID$(C))»39THENGOSUSB5O: PRINT: 

GOTO1100 GH 


+1120 PRINT" [BLACK ]" : PRINTTAB(8) ; " [RVSON] 
: COMMENTS  OR[3" "]NOTES :[RVSOFF]":PRI 
NT" [BLUE]" ; : INPUTCMS(C) 
+1130 IFLEN(CM$(C))>79 THENGOSUB60: PRINT: 
60701120 со 
+1135 IFCMS(C)-" /"THEN1100 HI 
+1140 PRINT" [BLACK ]" : PRINTTAB(5) ; " -» PRESS 
ANY KEY TO CONTINUE«-" EG 
+1150 GETDE$: IFDE$=""THEN1150 BO 
+1160 PRINT" [ CLEAR)" : PRINTTAB(20-LEN(Z$) / 
2) ;2$:РЕІАТ BG 
+1170 PRINTTAB(5) ; " [RVSON ][ C] [RVSOFF JONTI 


IP 


NUE OR [RVSON][W][RVSOFF]RITE TO DISK" OF 
+1189 GETDE$: IFDES=""THEN1189 CD 
*1185 LFDE$="/"THENRETURN 10 
*1190 IFDE$<>"C"ANDDE$<>"W"THEN1180 DO 


Н +1200 IFDE$="C"THENPRINT" [CLEAR ]":C=C+1:G 


0701020 
+1205 PRINT: PRINTTAB(15) ;"WRITING TO": PRI 
NT:PRINTTAB(20-LEN(Z$)/2);Z$ 


BL 


1210 С051/880: RETURN МЕ 
*1999 REM====DELETE ROUTINE======= DN 
+2000 PRINT" [CLEAR]": PRINT: PRINT: PRINT PH 


+2005 PRINT" DELETE [RVSON][E][RVSOFF]NT 
IRE FILE OR [RVSON][O][RVSOFF]NE RECORD" GE 


+2019 GETDE$:IFDE$=""THEN2019 BO 

HO +2015 IFDE$="/"THENRETURN 10 

«2020 IFDE$<>"E"ANDDE$<>"0"THEN2000 FI 

+2030 IFDE$="E"THENGOSUB9200: RETURN EP 
AHOY! 105 


http 


“2040 FL=1:GOSUB7000:FL=. : RETURN 

“2999 REM=====SORT PART1====== 

«3000 GOSUB1O:PRINT"[CLEAR]":FORI=1105:PR 
INT:NEXT:PRINTTAB(15);"SORT BY":PRINT ЈЕ 
*3010 Fl=1:GOSUB5019:IFDE$="/"THENRETURN OF 
*3020 IFDE$z"S"THENK121:GOSUB9300: G0T0307 

0 ED 
“3030 IFDES-"T'THENK1-2:G0SUB9300:G0T0307 
0 

+3040 ІЕПЕф-"А"ТНЕМК1-3:06051/89300:0070307 
0 GP. 
“3050 IFDE$="M"THENK1=4 : GOSUB9300:G0T0307 
9 


JD 
PK 


LK 

+3060 
0 І 

“3070 Kl=,:PRINT"[CLEAR]":PRINTTAB(8) ; "ON 
E MOMENT WRITING SORTED": PRINT 00 

+3080 PRINTTAB(20-LEN(Z$)/2) ;Z$ KL 

*3090 6050880: RETURN MF 

*3999 REM=====PRINT RECORD/FILE===== LP 

“8000 PRINT" [CLEAR ]"': PRINTTAB(8) ; "[RVSON] 
[E][RVSOFF]NTIRE OR [RVSON][O][RVSOFF]NE 
RECORD" 

*4010 GETDE$ :IFDE$=""THEN4010 

+4020 IFDE$="/"THENRETURN 

“4030 IFDE$<>"E"ANDDE$<>"O"THEN4O10 

“4040 ІЕПЕб-"О"ТНЕМК2-1:605/87000:ТЕК2-.Т 
HENRETURN NI 


ТЕрЕ$="І"ТНЕМК1=5 : GOSUB9300 : GOTO307 


LD 
BM 
10 
GB 


+4050, ТЕЕф-"Е"ТНЕНСО8ІВ10:00704200 Ju 
+4060 OPEN3,4:XX$="[s T][17"»"][s Y]":PRI 
NTÀ3,Z$;" RECORD NUMBER"; I:PRINT#3 ML 


0070) PRINT#3:PRINT#3, XX$: PRINTé3, TAB(3) ; 
"S U B J E C T"sPRINT#3 FH 
+4080 PRINT#3, SU$(I) :PRINT#3:PRINT#3, XX$: 
PRINT43,TAB(5);"T I T L E":PRINT#3 
“4090 PRINT#3, TA$(I) :PRINT#3:PRINT#3, XX$: 
PRINT#3,TAB(4);"A U T H O R":PRINT#3 
+4100 PRINT#3, ANSCI) :PRINT#3:PRINT#3, XX$: 
PRINT#3,TAB(2);"M A GAZ I N E" PG 
*4110 PRINTé3:PRINT£3,MN$(I):PRINT43:PRIN 
T43,XX$:PRINT43,TAB(5);"I S S U E" NH 
*4120 PRINT#3:PRINT#3, ID$(I):PRINT£3:PRIN 


HD 
JC 


T£3,XX$:PRINTA3,TAB(3);"C OMM EN T" BJ 
“4130 PRINT£3:PRINT£3, CM$(I):CLOSE3: RETUR 

N FL 
*4199 КЕМ=====РКІМТ ENTIRE RECORD===== GL 


+4200 PRINT"([CLEAR]":PRINTTAB(14);"NOW PR 
INTING": PRINT: PRINTTAB(20-LEN(Z$)/2);Z$ 0) 
+4210 XX$="[s T][17"- -"][s Y]" :OPEN3, 4: PRI 
NT:PRINT"RECORD NUMBER' AH 
«4230 PRINT#3,Z$;" FILE":PRINTé3 GH 
*424() FORI-1TOC: PRINTI: PRINT#3: PRINT£3, "= 
=>RECORD NUMBER";I;" <==";PRINT#3 
*4250 PRINT£3,XX$:PRINT43,TAB(3);"S U B J 
E C T":PRINT#3:PRINT#3, SUS(I) : PRINT#3 
*4260 PRINT#3,XX$:PRINT#3,TAB(5);"T IT L 
E": PRINT£3: PRINT#3, TA$(I) : PRINT#3 
*4270 PRINT#3,XX$:PRINT#3,TAB(4);"A U T H 


AA 


PD 


PE 


106 AHOY! 


ED +4999 REM= 


0 R":PRINT#3:PRINT#3, AN$(I):PRINT#3 МЕ 

+4280 PRINT#3,XX$:PRINT#3,TAB(2);"M A G A 
Z I М E":PRINT3: PRINT£3, MNS (I) 

+4290 PRINT£3: PRINT£3, XX$: PRINT£3, TAB(5) ; 
"I S S U B":PRINT#3:PRINT#3, ID$(1) 

+4300 PRINT#3:PRINT#3, XX$:PRINT#3, TAB(3) ; 
"CO MM E № T":PRINT#3:PRINT#3,CM$(I) 

+4310 PRINT#3:NEXT:CLOSE3:RETURN 

SEARCH ROUTINE===== 

+5000 PRINT" [CLEAR ]"sFORI=1T05 ; PRINT: NEXT 
:PRINTTAB(15); SEARCH BY": PRINT 

+5010 PRINT: PRINTTAB(15) ;"[RVSON][S][RVSO 
FF JUBJECT" : PRINT: PRINTTAB( 15) ;"[RVSON] [T 
J[RVSOFF ] LTLE" : PRINT 


EO 
BP. 
MI 


GC 
AA 


HN 


CG 


F +5020 PRINTTAB(15) ;"[RVSON][A][RVSOFF JUTH 


OR": PRINT: PRINTTAB(15) ; " [RVSON ] [M] [RVSOF 
F]AGAZINE": PRINT EK 
+5030 PRINTTAB(15);"[RVSON][I][RVSOFF]SSU 
E BL 


+5040 GETDE$: IFDE$="""THEN5S040 EC 
+5045 IFDE$="/"THENRETURN 10 
“5050 IFDE$<>"S"ANDDE$<>"T"ANDDE$<>"A"'AND 
DES» "M'ANDDES 2" T'THENSOO0 IC 
*5055 IFFl=1THENF1=. : RETURN KC 
«5060 IFDE$="S"THENPRINT"[CLEAR]":FORI=1T 
04: PRINT: NEXT: GOT05090 PL 
+5079 IFDE$="T"THENPRINT"[CLEAR]":FORI=1T 
O4 : PRINT: NEXT:GOTOS110 
*5075 IFDE$="A"THENPRINT" [CLEAR]":FORT=1T 
04: PRINT: NEXT:GOT05139 OM 
«5080 IFDE$="M"THENPRINT" [CLEAR ]":FORI=1T 
04: PRINT: NEXT: GOTO5150 GC 
*5085 IFDE$s"I"THENPRINT"[CLEAR]" : FORI-1T 
O4 : PRINT: NEXT: GOTO5170 ҒА 
+5090 PRINT" [CLEAR]":PRINTTAB(13) ;"ENTER 
;:PRINT"[ BLUE]"; : PRINT" [SUBJECT ]": PRINT 
" [BLACK ]" 
*5100 INPUTS$:GOSUB1O:GOTO5300 
10 PRINT"[CLEAR]": PRINTTAB(13) ; "ENTER 
3  PRINT"(TITLE ]" : PRINT"[ 


AH 


GG 
LH 


+5120 INPUTT$:GOSUB19:GOT05300 

+5130 PRINT" {CLEAR]": PRINTTAB(13) ; "ENTER 
'; :PRINT"[BLUE]"; : PRINT" [ AUTHOR |" : PRINT" 
[BLACK ]" 

+5140 INPUTA$:GOSUB19:GOT05300 

+5150 PRINT" [CLEAR]":PRINTTAB( 12) ; "ENTER 
"; :PRINT"[BLUE]" ; :PRINT" [MAGAZINE ]" : PRIN 
T" [BLACK ]" 

+5160 INPUTM$:GOSUB19:GOTOS300 

+5170 PRINT" [CLEAR]": PRINTTAB( 13) ; "ENTER 
"5 sPRINT"[ BLUE]"' ; : PRINT" [ ISSUE ]^ : PRINT" [ 
BLACK ]" 

+5180 INPUTI$:GOSUB19:GOTO5300 

+5300 PRINT"[CLEAR]":PRINT" #";TAB( 10) ;"0 
NE MOMENT SEARCHING": PRINTTAB(29-LEN(Z$) 
/2);25 

+5310 FORI-1TOC 


MJ 


http 


+5320 IFDE$="S"ANDLEFTS(S$,LEN(S$))=LEFTS$ 
(SUS(I),LEN(S$))THENPRINTI;SUS(I):K-K4l JB 
+5330 IFDES-"T'ANDLEFT$(T$, LEN(T$) ) -LEFT$ 
(TA$(L) ,LEN(T$))THENPRINTI;TA$(I):K=K+1 LF 
+5340 IFDE$="Z"ANDLEFT$(I$,LEN(1$))=LEFTS 
(ID$(1) ,LEN(1$) )THENPRINTI; ID$ (1) :K=K+1 FF 
+5350 IFDE$="M"ANDLEFTS$ (M$ , LEN(MS) )=LEFT$ 
(MNS(I), LEN(M$) )THENPRINTI ;MN$(I):K=K+1 BB 
+5360 IFDES-"A'ANDLEFTS(A$,LEN(A$)) -LEFTS 
(ANS (Т) , LEN(A$) )THENPRINTI; ANS (I) :K=K+1 KB 
+5370 IFK=15THENK=0: PRINT: PRINTTAB(4) ;"CO 
RRECT RECORD FOUND [RVSON][Y][RVSOFF] OR 
[RVSON] [N] [RVSOFF]  : Y«1 
*5380 IFY=1THENGETRE$: IFRE$=""THEN5380 
*5385 IFRE$="/"THENRETURN 
+5390 IFY=1ANDRE$<>"N"ANDRES<>"Y"THEN5S380 ж 
+5400 IFRE$="N"THENPRINT" [CLEAR ]":Y=. : RES 


GG 
M 


z'  :NEXT:GOTO5440 KI 
*5410 IFRE$="Y"THENY=, :GOTOSS00 NI 
*5415 IFCSIANDKs»1THENK«15:G0T05370 AE 


+5420 NEXT: PRINT Е 
+5430 PRINTTAB(11);"RECORD NOT FOUND": PRI 
NT PA 
“5440 PRINTTAB(10)"[RVSON ][ A] [RVSOFF] BORT 
OR [RVSON][R][RVSOFF ]ETRY GN 


+5450 GETDES : TFDE$=""THEN5450 BN 
+5460 IFDE$s" /"ORDES«" A THENRETURN EK 
+5470 IFDE$="R"THENDE$="" :GOTO5000 FO 
+5480 TFDE$<>"A"ANDDE$<>"R"THEN5450 PF 
+5500 PRINT: PRINTTAB(13) ;"SELECT RECORD": 
PRINT"[BLUE]";:INPUTRN:IFRNDCTHENSSO0 КВ 
+5510 PRINI"[BLACK ]" : PRINT" [CLEAR]" : IeRN: 
ЕА=1:60107010 DD 
+5999 REM====MODIFY RECORD====== IN 
+6000) F4=1:GOSUB7000 PP 
+6019 PRINTTAB(7);"[BLACK]";"{RVSON][1. S 
UBJECT OF ARTICLE ][RVSOFF]":PRINT"[BLUE 
]";50$(1) PRINT ся 
+6020 PRINTTAB(7) ;" [BLACK]"'; " [RVSON][2. Т 
ITLE OF ARTICLE[3" "]][RVSOFF]":PRINT"[B 
LUE]";TASCI):PRINT AB 
-6030 PRINITAB(7);" [BLACK]; " [RVSON][3. А 
UTHOR'S NAME[6"."'] ) RVSOFF ]": PRINT" [BLUE 
Т"; ANSCI): PRINT AN 


+6040 PRINTTAB(7) ;" [BLACK ]" ; " [RVSON][ 4. N 
AME OF MAGAZINE[3" "]][RVSOFF]": PRINT"[B 
LUE]" ;MN$(I) :PRINT PM 
+6050 PRINTTAB(7);"[BLACK]";"[RVSON][5. I 
SSUE #/PAGE/DATE  ][RVSOFF]":PRINT"[BLUE 
]";ID$(I):PRINT 
+6060 PRINTTAB(7) ;"[BLACK]";"[RVSON][6. С 
OMMENT OR NOTE[4" "]][RVSOFF ]" : PRINT"[BL 
UE]";CM$(I) PRINT 
+6070 PRINTTAB(7) ; " [BLACK ]" ; " [RVSON][7.. W 
RITE TO 015К[6" "]][RVSOFF]":PRINT 
6080 PRINTTAB(7);"[3"="]>CHANGE WHICH LI 
Е<-- 
«6090 GETDE$: IFDE$=""THEN6090 


DO 


BG 


oc 


EK 


+6100 DE-VAL(DE$) :IFDE$-"/" THENRETURN NL 
“6110 IFDE<1ORDE>7THEN6090 10 
“6120 IFDE-7THENGOSUB80: RETURN HO 


+6130 IFDE-ITHENPRINT"[CLEAR]" : PRINTTAB(5 
);"[RVSON]: SUBJECT OF ARTICLE :[RVSOFF] 
"PRINT: PRINT" [BLUE]"; 

+6140 IFDE-ITHENPRINTSUS(I):PRINT:PRINT"E 
NTER NEW VALUE": PRINT: INPUTSU$ (1) 

+6150 IFLEN(SUS(1))»79THENGOSUB60: PRINT:G 
0706130 

+6155 IFSU$(I)="/"THENRETURN 

«6160 IFDE=2THENPRINT"[CLEAR]": PRINTTAB(5 
);"[RVSON]: TITLE OF ARTICLE :[RVSOFF]": 
PRINT: PRINT" [ BLUE]"' ; JG 

«6170 IFDE=2THENPRINTTA$(T) :PRINT:PRINT"E 
NTER NEW VALUE": PRINT: INPUTTA$(I) 

«6180 IFLEN(TA$(I))>39THENGOSUB59:PRINT:G 
0706160 DN 

+6185 IFTAS(I)-"/"THENRETURN 60 

«6190, IFDE=3THENPRINT"[CLEAR]": PRINTTAB(5 
);"[RVSON]: AUTHOR'S NAME :[RVSOFF]":PRI 
NT: PRINT"[BLUE]" ; 

+6200 IFDE-STHENPRINTANS(I):PRINT:PRINTE 
NTER NEW VALUE": PRINT: INPUTANS(I) 

+6210 IFLEN(ANS(I))»39THENGOSUB50: PRINT:G 
0706190 or 

*6215 IFAN$(I)="/"THENRETURN 

+6220 IFDE-ATHENPRINT"[CLEAR ]" : PRINTTAB(5 
);"[RVSON]: NAME OF MAGAZIZNE :[RVSOFF]" 
:PRINT:PRINT"[BLUE]" ; 

+6230 IFDE=4THENPRINTMN$ (Т) : PRINT: PRINT"E 
NTER NEW VALUE": PRINT: INPUTMN$(1) KG 

+6240 IFLEN(MN$(I))>39THENGOSUB50:PRINT:G 
0706220 GM 

+6245 ТЕММ$(І) =" /" THENRETURN 

*6250 IFDE-STHENPRINT"[CLEAR]" : PRINTTAB(5 
);"[RVSON]: ISSUE / PAGE / DATE :[RVSOFF 
]'': PRINT: PRINT" [BLUE ]" ; 

*6260 IFDE-STHENPRINTIDS(I):PRINT:PRINT"E 
NTER NEW VALUE": PRINT: INPUTIDS(I) 

«6270 IFLEN(ID$(1))»39THENGOSUB5O: PRINT:G 
0706250 DP 

+6275 IFID$(I)="/"THENRETURN 

«6280 IFDE-GTHENPRINT"[CLEAR]" : PRINTTAB(5 
);"[RVSON]: COMMENTS OR NOTES :":PRINT:P 
RINT"[BLUE]"; BL 

+6290 IFDE=6THENPRINTCMS(I) :PRINT:PRINT"E 
NTER NEW VALUE":PRINT: INPUTCMS(I) 

+6300 IFLEN(CMS(1))»70THENGOSUBÓO: PRINT, G 
0706280 DP 

*6305 IFCMS(I)-"/"THENRETURN CF 

+6319 PRINT"[CLEAR]": GOTO6010. РО 

+6999 REM====LIST + DELETE ROUTINE ====== 

= CE 

+7900 PRINT"[CLEAR]" : GOSUB10: PRINT" [CLEAR 

J" : FORI-1TOC: PRINT: PRINT OB 

+7010 PRINTTAB(9) ;"[RVSON][ :SUBJECT OF AR 
TICLE: |І RVSOFF}": PRINT" [ BLUE ]" ;SU$(I) :PR 
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EE 


JB 
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INT 

+7020 PRINTTAB(9) ;"[BLACK ][RVSON ][ : TITLE 
OF ARTICLE :][RVSOFF]" : PRINT"[BLUE]"; TA 
$(1):PRINT MJ 
+7030 PRINTTAB(9) ; " [BLACK ] [RVSON ][ : AUTHOR 
15 NAME[5" "7: J[RVSOFF]" : PRINT" [BLUE ]" ;A 
N$(I) :PRINT 

+7040 PRINTTAB(9) ;"[BLACK ][RVSON][ :NAME 0 
F MAGAZINE: )[RVSOFF]":PRINT"[BLUE]" ;MN 
$(1) :PRINT PI 


BM 


MI 


“8010 FORI-1TO15:POKES3281,I41:FOR X=1T02 
QO:NEXTX:NEXTI : POKE53281,6 

“8020 PRINT" ( CLEAR]" : PRINT" [ HOME ]" : END 
*8999 КЕМ====== INITIALIZE ЕШЕ====== 
+9000 PRINT"[OLEAR]":PRINTTAB(5);" THIS FI 
LE '";Z$;"' HAS NOT BEEN INITIALIZED ":С 
105Е5 

+9010 PRINT"OR YOU DO NOT HAVE THE CORREC 
T DISK IN THE DRIVE !" 

+9020  PRINT:PRINTTAB(8) ; "[RVSON ][C] [RVSOF 


+7050 PRINTTAB(9) ;" [BLACK ] [RVSON] [ : ISSUE FJONTINUE -/- [RVSON][R][RVSOFF]ETURN" ОЕ 
#/PAGE/DATE :][RVSOFF]": PRINT"[ BLUE]" ; ID “9030 GETDES : IFDES: GH 
$(1):PRINT В) +9035 IFDE$s"/"THENK: PM 
“7060 PRINTTAB(9) ;"[BLACK ] [RVSON ] [ : COMMEN “9040 IFDE$="R"THENK=1: RETURN EF 
T OR NOTES  : J[RVSOFF]" : PRINT"[ BLUE]" ; CM +9050 IFDE$<>"R"ANDDE$<>"C"THEN9030 PN 
$(1):PRINT OC -9060 OPEN5,8,5,"0: 42$" , SW: PRINT" [CLE 


“7065 IFFA=1THENPRINT: PRINT" [ BLACK ]" ; TAB( 
8);"PRESS ANY KEY TO CONTINUE" AH 


AR ] ШЕ 
“9070 


PRINTTAB(14) ; "INITIALIZING" 
PRINT: PRINTTAB(20-LEN(2$) /2) ;Z$ 


17070 TRFA=1THENGETDE$: IFDE$=""THEN7070 ВК +9089 50$(1)= EOF":TAS(1)e TITLE" : ANS(1)= 
*7075 IFDE$="/"THENRETURN IO  "AUTHOR":MN$(1)-" MAG": ID$(1)=""ISSUE" BG 
«7080 IFFA=1THENFA=, : RETURN MC +9090 CM$(1)="COMMENT" 

+7090 IFFL-lTHENPRINT"[BLACK]";TAB(5);"DE 9100 PRINT#5,SU$(1)PS$TA$(1)P$AN$(1)PS$MN$ 
LETE THIS RECORD [RVSON][Y][RVSOFF] OR [ (1)PSID$(1)P$CMS (1) : CLOSE5: RETURN PG 
RVSON] [NJ [RVSOFF]" M +9199 REM=====DELETE THE ENTIRE FILE ==== 
+7100 TFFL=1THENGETDE$:IFDE$=""THEN7100 АН = JA 
“7110 TFFL=LANDDE$="Y"THEN7180 DI *9200 PRINT"[CLEAR]" : FORI-1T010: PRINT:NEX 
*7120 IFFLelTHENPRINT"[CLEAR]" : NEXTI : КЕТО T:PRINTTAB(11);"!! ARE YOU SURE !!" JM 
RN ML “9210 PRINT;PRINTTAB(15);" [RVSON][ Y ][RVSO 
*7125 IFFA4-lTHENPRINT"[BLACK ]" ; TAB(5) ; "MO FF] OR [RVSON ] [N] [RVSOFF ]" XK 
DIFY THIS RECORD [RVSON][Y][RVSOFF] OR [ +9220 GETDES:IFDES-""THEN9226 GC 
RVSON ] [N] [RVSOFF]" : GOTO7146 AH $ 10 
+7130 PRINT" [BLACK]";TAB(7) ;"CONTINUE PAG 9230 IFDE$<>"Y"ANDDE$<>"N"THEN9220 PC 
ING [RVSON][Y][RVSOFF] OR [RVSON][N][RYS 9240 IFDES-"N'THENRETURN LD 
OFF)" AF +9250 PRINT:PRINTTAB(10);"ONE MOMENT DELE 
*7140 GETDE$: IFDES-" THEN7146 EB  TING":PRINT:PRINTTAB(20-LEN(Z$)/2);2$ 10 
*7145 IFDE$-"/"THENRETURN 10 +9260 OPEN5,8,5, "80; 4Z$4" , SW" : GOSUB9OBO 
+7150 IFDE$<>"¥"ANDDE$<>"N"THEN7140 CF  :RETURN BJ 
*7155 IFF4=1ANDDE$="N"THENPRINT"[CLEAR]": +9299 REM=====SORT PART2===== KP 
NEXT: RETURN ЕВ +9300 PRINT"[CLEAR]": PRINTTAB(9); "ONE MOM 
*7160 IFDES-"N'THENRETURN LD ENT NOW SORTING":PRINT EC 
*7165 IFF4=1ANDDE$="Y"THENF4=.:PRINT"([CLE +9310 PRINTTAB(20-LEN(Z$)/2);2$ KL 
ARJ" : RETURN ЕС +9320 ONK1G0T09350,9400,9450,9500,9550 ЕО 
*7170 PRINT" [CLEAR]":NEXT:K2=.:RETURN | KJ +9350 F=, :FORJ=1T0C-1 MI 
«7180 SU$(I)="DELETE":OPEN5,8,5,"@0:"4Z$+ +9360 IFSUS(J)<=SU$(J+1)THEN9380 PO 
",S,W":PRINT" [CLEAR ]" OF +9370 GOSUBl0D00 II 
7190 PRINTTAB(4) ;"ONE MOMENT DELETING RE 9380 NEXT:IFFelTHENO350 ND 
CORD ";I:FORI-lTOC CP +9399 RETURN IM 
+7200 IFSU$(I)="DELETE"THENC=C-1:NEXT ВІ +9400 Fe.:FORJelTOC-l MI 
+7210 PRINT#5, SUS(IDESTASEYESLIRCT) ESA 1 +9410 IFTA$(J)<=TA$(J+1)THEN9430 NA 
(I)PSIDSCI)PSOMS(I) +9420 605810000 II 
«7220 NEXT: I=C+1: SUSCD)-"goP TAS CD "mir *9430 NEXT: IFF-1THEN9400 NN 
LE": ANS (I) -" AUTHOR" : MN$ (Т) ="МАС" ЕН +9440 RETURN ІМ 
“7230 ID$(I)="ISSUE":CM$(I)="COMMENT" ОА “9450 F=. :FORJ=1TOC-1 MI 
+7240 PRINTÉS,SUS(I)PSTAS(I)PSANS(I)PSMNS +94600 IFANS(J)<=AN$(J+1)THEN9480 07 
(I)PSID$(I)PSCM$(I):CLOSES:FL-.:RETURN НВ *9470 0050810000 II 
+7999 REM====END=== СС +9480 NEXT: IFF=1THEN9450 NE 
18000 PRINT" [CLEAR]":FORX=1TO12:PRINT:NEX 9490 RETURN ІМ 
T:PRINTTAB(9);"IT'S BEEN А PLEASURE" 00 +9500 F=.:FORJ=1TOC-1 MI 
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“9510 IFMNS$(J)<=MN$(J+1)THEN9540 NC С110: 90 02 E6 15 C8 Bl FB 4C 61 
“9520 60505810000 PP C118: E4 CO 20 53 CO А5 3D C5 9A 
9530 NEXT: IFF-1THEN9500 NK C120: 14 DO 13 AS ЗЕ C5 15 DO А7 
9540 RETURN IM C128: 9D A9 20 20 D2 FF А5 FD 95 
*9550 Ғ«.:ҒОКІ-1Т0С-1 MH C130: АА А5 FE 20 CD BD А0 00 CB 
*9560 IFID$(J)<=ID$(J+1)THEN9589 NK C138: Bl FB C9 2C FH 91 4C 23 CD 
“9570 6051/810000 II C140: CO 01 

+958) NEXT: IFF-1THEN9550 NF 

*9590 RETURN IM START & END 


*10000 S1$=SU$(J):T1$=TA$(J) :А1$=АМ$(Ј) :М 
15-МҺ5(.7):115-108(.7):С15-СМ5(.7) PB FILE ADDRESS 


*10010 SU$(J)=SU$(J+1) :SU$(J+1)=S1$:TA$(J 
)=TA$(J+1) :TA$(J+1)=T1$:F=1 07 FROM PAGE 17 


10020 AN$(J)=AN$(J+1):AN$(J+1)=A1$:MNS$(J +2 PRINT" [CLEAR] [DOWN][7" "][RVSON]START 


J=MN$(J+1) :MN$(J+1)=M1$ MO & END FILE ADDRESS":REM BY DAVE SMART DM 
10030 ID$(J)=ID$(J+1) : ID$(J41)211$:CM$CJ +4 FORI=828T0904:READA:POKEL, A: NEXT KH 
)=CM$(J+1) sCM$(J+1)=C1$: RETURN КА +6 OPEN15,8,15, "I0" 00 
ж “8 INPUT"[3"[DOWN]"] FILE TO CHECK.";F$:P 
GO-LISTER T a be 
“10 "PMSD-3 SEQ 06 
FROM PAGE73 7. +12 РОКЕ251,Р-5%256:РОКЕ252,5 CI 
First byte: С000 Last byte: C140 SYS to start: 49152 .14 PRINT" ";Е$ KC 
C000: A9 01 A2 04 А0 FF 20 BA CC *16 OPEN1,8,2,"0:"+F$ со 
C008: FF А9 00 20 Вр FF 20 CO 70 +18 GET#1,A$,B$ АК 
C010: FF А2 01 20 C9 FF AN 08 46 “20 D-ASCCAS4 CHR$ (0) )4256*ASC( B$4CHR$ (0)) i 
C018: 84 46 AQ 01 84 45 4C 87 22 *22 INPUT#15,E,E$,E1,E2 
0020: CO АП 00 Bl FB C9 00 FO E9 -24 IFESOTHENPRINT: PRINT, E$:CLOSE1: ан! 
C028: 41 C9 22 00 06 А9 01 45 ІС 5:END KL 
C030: 43 85 43 А5 43 C9 01 FO EO “30 PRINTTAB(15)"START ADDR.(DEC)"D JH 
C538; 12 Bl FB C9 89 FO 28 C9 2E *32 W=D: GOSUB54 HC 
C040: 8D FO 24 C9 A7 FO 20 C9 2F *34 PRINTTAB(26)"(HEX) "H$ NJ 
0048: CB FO 1C АП 01 20 53 CO F6 *36 PRINT"[DOWN]PLEASE WAIT[3"."]" IJ 
C050: 4C 23 Ch CO 00 FO ОҒ А9 EA “38 SYS831 DN 
C058: 01 18 65 FB 90 02 Еб FC 49 *4() Е=Р:Р=РЕЕК(251)+РЕЕК(252)*256:Т=Р CN 
C060: 85 FB 88 4C 53 С0 60 4C 77 *42 Z$-RIGHTS("[3" "]"4STR$(T-F),5) DH 
C068: CF С0 А0 02 Bl FB C9 00 13 *44 PRINT"[UP][18" "]"Z$;" BYTES OF MEM.[ 
0070: FO 14 AO 03 Bl FB 85 FD 4A DOWN]" JP. 
C078: C8 Bl ЕВ 85 FE C8 20 53 AF *46 Z=VAL(Z$) KH 
C080: CO 84 43 4C 23 CO 88 Bl 73 *48 PRINTTAB(17)"END ADDR.(DEC)"Z4W:D-W4Z 
C088: 45 C9 00 FO 34 C8 Bl 45 7C :GOSUB54 AN 
C090: 85 3D C8 Bl 45 85 3E А0 77 +50 PRINTTAB(26)"(HEX) "H$ NJ 
C098: 00 Bl 45 AA C8 ВІ 45 85 7F “52 607060 PG 
COAG: 46 BA 85 45 A9 00 85 FB 67 +54 H$=""":M=4096:N=3:IFD<256THENM=16:N=1 AL 
C0A8: А9 08 85 FC A9 OD 20 D2 86 +56 FORH=/TON:C=INT(D/M) :D=D-C¥M:M=M/16:C 
COBO: FF А5 3D AA А5 ЗЕ 20 CD 10 =C+48: IFC>57THENC=C+7 DA 
COB8: BD А9 3A 20 D2 FF 4C 72 0C +58 H$=H$+CHR$(C) : NEXT: RETURN BL 
CHCH: CO A9 OD 20 D2 FF 20 CC 18 "60 CLOSE1:CLOSE15 ВВ 
С0С8: FF A9 01 20 СЗ FF 60 AQ 58 “62 PRINT" [DOWN ][DOWN]DO YOU WISH ТО СНЕС 
CODO: 00 84 14 84 15 C8 ВІ ЕВ 79 K ANOTHER FILE (Y/N)" 
COD8: C9 20 FO F9 C9 А0 F) F5 FE +64 GETA$: IFA$=""THEN64 GB 
CHEO: C9 А4 FO Fl C9 30 30 32 8E +66 IFA$<>"Y"THENEND DI 
С0Е8: C9 ЗА 10 2E Е9 2Ғ 85 07 00 “68 IFA$="Y"THEN6 DG 
COFO: А5 15 85 22 А5 14 GA 26 3D “70 DATA 76,96,3,162,1,32,198,255,32 NH 
COF8: 22 GA 26 22 65 14 85 14 80 +72 DATA 228,255,160,0,145,251,230 OB 
C100: А5 22 65 15 85 15 06 14 F6 “74 DATA 251,208,8,230,252,165,252 НА 
C108: 26 15 А5 14 65 07 85 14 03 “76 DATA 201,208,240,6,165,144,41,64 KD 
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*78 DATA 240,231, 76,204,255, 162,1,32 KC 
“80 DATA 201,255,162,54,134,1,160,0 DB 
“82 DATA 177,251,32, 219,255,230, 251 MK 
«84 DATA 208,2,230,252,165,251,197,253 DM 
“86 DATA 208,239,165,252,197, 254,208 FL 
“88 DATA 233,162,55,134,1,76, 204,255 EF 
FROM PAGE 29 

“0 607090 РР 
“2 D=INT(RND(1)*9)+1 OB 


+3 E=INT(RND(1)*9)+1: 1=D*E: PRINT" [ HOME] [2 
2"[DOWN]"][ 7" [RIGHT]"]"; D; "[RVSON][s У)" 
;Е; ЕМ 

+ X=2: Q=); FORT«1TO7 : POKEU, 241: FORTT-1TO3 
ON: NEXT: POKEU, 0: FORTT=1T050: NEXT: NEXT: GO 


TO34 GC 
“8 IFQSITHEN18 0G 
*9 IFQ<>ITHEN7O JO 


14 POKEA,G:POKEA+B, 2:Q=Q+1:FORT=170T0135 
STEP-1:POKEU*1,T:NEXT: POKEU1, 0: POKEA, 32 
:607040 

"18 K=K+1:PRINT" [CLEAR] [BLACK ] [RVSON ]GREA 
T[3" 1" ]"; PRINT" [DOWN ] [DOWN ] [RED] [RVSON ]C 
ORRECT ANSWER!"':PRINT"[DOWN][DOWN]";D;"[ 
RVSON][s V]";E;"z";I CF 

*19 PRINT"[DOWN][PURPLE][RVSON]YOUR SCORE 

IS NOW';K:FORT«135T0241:POKEU, T: NEXT 

20 POKEU,, 0: FORT«1T02 : POKEU, 241 : FORTT-1TO 
200: NEXT: POKEU, 0: FORTT21TO50: NEXT: NEXT 

*21 PRINT"[4"[DOWN]"][ BLACK] [RVSON]HIT SP 
ACE" BG 

*22 IFPEEK(197)<>32THEN22 EB 

*23 PP=PP+1:IFPP<1OTHEN29 GO 

+24 POKE36869,240:PRINT"[CLEAR][7" "]GAME 

OVER": PRINT" [3" [DOWN ]" ] FINAL SCORE:";K OJ 

«25 PRINT"[A4"[DOWN]"]YOU HAVE COMPLETED D 
EN PROBLEMS WITHOUT GUMS GETTING YOU!" 

*26 PRINT"[3" [DOWN ]" ]HIT [RVSON ]F1[RVSOFF 
] TO PLAY[10" "]AGAIN." 


LH 


DP 
PF 


JA 
PH 


*27 IFPEEK(197)<>39THEN27 BN 
*28 RUN95 PL 
*29 PRINT" [CLEAR]":POKE36869, 255 CA 


“30 A=8131:B=30720:C=7689:V=36878: POKEV, 1 


5:0-36876:РОКЕУ-1,238:Х-1 NL 
+31 FORT=1T0125: S-INT(RND(1)4396)47702: PO 
KES, 5: POKES4B, 0: NEXT:H27679 ML 


*33 IFX=1THEN2 
“34 POKEC+B,(:POKEC+1+B,:POKEC, 3:POKEC+1 


KD 


74: TFA=CORA=C+1THENSS HE 
“35 WAIT653,1,1:IFC>816GTHENPOKEC, 32: POKE 
C+1,32:C=7680 AM 
“36 POKEA,32:F=PEEK(197):IFF<>23ANDF<>31T 
НЕМА=А-22:6=0 Ар 
"37 IFF-31THENA-A-1:G-2 BC 
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*38 IFF=23ANDA<8163THENA=A+1:G=1 FL 
*39 ІЕРЕЕК(А)-5ТНЕМ14 01 
:40 РОКЕА%В,2:РОКЕА,б:РОКЕС,32:РОКЕС-»1,32 

3C=C+1:; IFPEEK(C+1)=STHENC=C+22 ТА 
+41 ІҒА<НТНЕХВ KK 
+42 GOTO33 PG 
:55 1-15 GD 


“56 FORT=200TO135STEP-1:POKEU+1,T:NEXT:PO 
КЕЙ»1,135:ҒОКТ-17050:ХЕХТ:РОКЕО»1,0 

“57 L=L-1:POKEV,L:IFL>STHENS6 

*58 FORT=1T01500: NEXT: POKEU-2,135:FORT=1T 
01900:NEXT: POKEU-2,0 AL 
“60 POKE36869,240:PRINT"[CLEAR]GUMS GOT Y 
AI":PRINT"[4"[DOWN]"]BUT DON'T WORRY, YOU 
ІЗ" "]WERE DELICOUS! !" 

“61 BRINE LA [DOWN]  JHXTIRIGATITRYSONTRIT | 
RVSOFF] TO PLAY AGAIN" 

“62 IFPEEK(197)<>39THEN62 

“63 RUN29 PO 
“70 POKE36869, 240): IFQ»ITHENPRINT"[CLEAR]Y 
00 ATE TOO MUCH!" ID 
*71 IFQCKITHENPRINT"[CLEAR]YOU DIDN'T EAT 
ENOUGH!" ED 
“72 FORT=241T0135STEP-1: POKEU, T: NEXT: POKE 
11,0: FORTT-1TO100: NEXT: POKEU, 140: FORT=1TO 
1000 

-73 NEXT:POKEU , 0: PRINT" [ DOWN ] [DOWN]" ; D; "[ 
s V]"; E; "2"; I; :PRINT"[DOWN] (DOWN]YOU ATE 
", 


ВІ 


5 


JJ 


$ AH 
«74 K=K-1:PRINT"[DOWN][DOWN]YOUR SCORE IS 
NOW"; K:GOTO21 OF 
:90 POKES2, 28: POKE56, 28:CLR:FORI=7168T076 
79:POKEI, PEEK( 1425600 EXT 
*91 RESTORE: FORT-1T020: READF : NEXT: FORG»71 
68T07221: READF: POKEG , F: NEXT AO 
“92 DATA135,145,155,145,155,165,155,165,1 
75,185,185,195,165,165,165,195,195,165,1 
65,215 
*93 DATA24,40,122,114,60,24,24,60,0,12,15 
8,253,247,144,12,0,0,48,121,191,239,9,48 


MK 


9 EH 
“94 DATAI4,7,143,223,255, 255, 223,143,0,0, 
192,169, 240,184,128, 240,0,0,0,0,4,28,60, 
28,0,0,0 
“95 ПАТА0,0,0 
“100 POKE36879,8:PRINT" [CLEAR ][CYAN][3"[c 
+1"1[551[3"[с +]"][SS][3"[e +]"1[55][с 
*][SS][c +]":PRINT"[c «][4"[SS]"][c +][5 
51155 (с +][3"[SS]"][c +][$5][с +]":PRIN 
T'[c +][с +1[3"[551"][с +1[551[85][3"[с 
+1"1[55]1[3"[с +]"]" сс 
101 PRINT"[c 4][4"[SS]"][c +][4"[SS]"] [c 
*][SS][c +][55][с 4]":PRINT"[c +][3"[55 
1"1[3"[с +1"1[551[3"[с +]"][SS][c +][SS] 
[c +]":PRINT:PRINT"[3" "][с +][3"[551"][ 
c *][SS][3"[c +]"][SS][3"Le +]"][SS][c + 


II 
HD 


w.oldgamesitalia. 
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JISS][e +]" 

+162 PRINT"[3" "Пс «][c «][SS][c +][с +] 
[SS][c +][SS][c +]1[55]1[55][с --)[SS)[SS][ 
с «][SS][c *]":PRINT"[3"[SS]"][c *][SS][ 
c 4][SS][c +][SS][3"[c +]"][SS][SS][c +] 
[SS][SS][3" [c +]"]":PRINT"[3" "][c «][3" 
[55]1"1[с 41155 Іс +][551[с “158155 )(с 
%1155115511с +] 

[c +]" 


+163 PRINI"[3" "][c «][3"[SS]"][c +][SS][ 
c +]1[55][с %115511851с +][851[55][с +] 
SS][c +]":PRINT" [DOWN ] [DOWN] [YELLOW][3" 
"]BY KEVIN DEWEY." PI 
*104 PRINT"[DOWN][DOWN][S" "]HIT ANY KEY" 

С ;:РОКЕ198,0 BH 
+195 PRINT" [BLACK ]":POKE36878, 15 AE 
+106 RESTORE: FORT=1T020:READU: POKE36876 ,U 
:FORTT=1T0100: NEXT: POKE36876 ,) NI 
+107 GETA$:IFA$<>""'THEN29 


GA 


BO 


PE 


“108 NEXT IA 
+109 6070106 


FASTNEW 


сі, 


$(2)CHRS(T)CHR$(S) KH 
+420 PRINT#15, "M-W"CHR$(1)CHR$()CHR$(1)C 

HR$(JB) KH 
+430 TY=TY+1 OK 
+440 PRINTA15, M-R"CHR$(1)CHR$(O) ор 


+450 GET#15,E$:IF E$="" THEN E$=CHR$(9) АН 


+460 E-ASC(ES) GE 
“470 IF TY=500 THEN GOTO 495 GI 
"480 IF E>127 THEN GOTO 430 AL 
“485 IF Е<>1 THEN GOTO 495 CN 
+490 RETURN 

*495 PRINT:PRINT"FATAL ERROR TRY AGAIN":S 
TOP NN 
*499 : DI 
*1000 REM ***** MAIN CODE HERE *##** IC 
*1003 Q$=CHR$(5)+"Q"+CHR$ (30) CK 


*1005 POKE 53280,11:POKE 53281,0:PRINT "[ 
GREEN]"; :RT$-CHR$(158)4" «RETURN» " 4 CHR$(3 
0) PG 
*1006 TP$=CHR$(31)+"[s U][19"[s C]"][s B. 
"+CHR$ (30) 

*1007 PN$=CHR$(31)+"[s B]"+CHR$(30)+" JB 

T NEW V010585 "+CHR$(31)+"[s B]"+CHR$(3 
0) EO 
+1008 TB$=CHR$(31)+"[s J][19"[s C]"][s K] 


- CD "4CHR$(30) со 
“11 REM FAST NEW LK “1010 PRINT CHR$(147)CHR$(13)"[10" "]"TP$ GE 
*12 REM DON LEWIS V010585 (REV V123184) JN *1011 PRINT "[10" "]"PN$ 
*14 REM ------------------------------- С) +112 PRINT "[10" "]"TB$:PRINT K 
+15 GOTO 1000 FC “1015 IF FG=l THEN GOTO 1035 AF 
46: DI “1020 PRINT "PLEASE WAIT. ."; л 
+19 REM DOWNLOAD CODE INTO 1541 BJ “1030 GOSUB 20:PRINT: FG=1 HG 
+20 RESTORE:PRINT CHR$(151) PO +1035 SYS 820:DN$="NAME МЕ" AA 
“30 FOR I=) TO 102:READ A:POKE 82041,A ЈР “1040 POKE 198,0:INPUT "DISK NAME";DN$ EN 
“35 IF (1/10)-ІМІ(1/10)-0 THEN PRINT "|с “1050 POKE 198,0:INPUT "DISK ID";DI$ GL. 
Р]"; ІМ “1060 DI$=LEFT$(DI$+"ZZ",2 cL 
+40 NEXT I MN "1070 Tl=ASC(LEFT$(DI$,1}) = Ше | 
*50 FOR 1=0 TO 511:READ A:POKE 19472,8 РЕ DI$,1)) 


"SE Іш (1/18)-ІМТ(1/18)=0 THEN PRINT "te 


E "uer I:PRINT CHR$(30); :RETURN 
+99 : DI 
*100 REM PROMPT AND WAIT FOR RESPONSE 

*105 PRINT:PRINT "INSERT DISK AND HIT "RT 


$; NN 
*110 GOSUB 200:1F A$<>CHR$(13) THEN GOTO 
110 
+120 RETURN ІМ 
199 : DI 
“200 REM GET CHAR FROM KB, WITH PROMPT HG 
«205 POKE 198,0:POKE 204,0 HG 
«210 GET A$:POKE 207,0:1F A$="" THEN GOTO 
210 CJ 
*215 POKE 204,1:PRINT " [LEFT]";:RETURN JF 
4299 : DI 
*400 REM DO A DISK JOB, THANKS "INSIDE CO 
MMODORE DOS" BY DICK EMMERS, DATAMOST JH 


*410 TY=(:PRINT#15, "M-W'CHR$(B)CHR$(0)CHR 


*1080 OPEN 15,8,15:PRINT#15, eot ce M 
CHR$ (0)CHRS (2) CHR$ (T1) CHR$(12) ; :CLOSE15 KH 
:1090 GOSUB 100 CJ 
+2000 OPEN 15,8,15:PRINT£15, 'M-E"CHR$(0)C 
HR$(5);:CLOSEI5:0PEN 15,8,15 DI 
“2010 T=18:S=0:JB=176:GOSUB 400:REM SEEK EA 
*2020 JB=128:GOSUB 400:REM READ DL 
*2030 PRINT#15, EC DI eM 
CHR$(18)CHRS (1)CHR$(65) 

*2040 JB-144:GOSUB 400:REM WRITE Tk 
“2050 S=1:JB=128:REM READ BN 
“2060 PRINT#15 , "M-W"CHR$(%)CHR$(4)CHR$(2) 
CHR$()CHR$(255) LC 


*2070 JB=144:GOSUB 400:REM WRITE IK 
*2080 CLOSE 15 AB 
*2690 OPEN 15,8,15:PRINT£15, "NO:"DN$ DN 


*2100 CLOSE 15 

*3000 PRINT:PRINT:PRINT"FORMAT COMPLETE, 
REMOVE DISK" 

*3010 PRINT:PRINT"HIT "RT$" TO FORMAT ANO 


AHOY! Ш 
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IMPORTANT! Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
1 and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


THER DISK," ІМ +5380 DATA 1,28,200,208,245,169,85,162 НІ 
*3015 PRINT Q$" TO QUIT";:GOSUB 200 PD +5390 DATA 8,80,254,184,141,1,28,202 JK 
*3020 IF A$=CHR$(13) THEN GOTO 1000 BO +5400 DATA 208,247,165,50,24,105,10,133 МР 
+3030 END IC +5419 DATA 50,198,77,208,149,80,254,184 ТЕ 
«4000 DATA 169,16,133,255,169,0,133,251 СК +5420 DATA 80,254,184,32,0,254,169,0 PB 
*4010 DATA 169,37,133,252,169,0,133,253 PE .5430 DATA 133,48,169,3,133,49,165,67 LJ 
*4020 DATA 169,5,133,254,165,186,32,177 EL .5440 DATA 133,77,32,176,6,162,10,80 ML 


*4030 DATA 255,169,111,32,147,255,165,251 EM .5450 DATA 254,184,173,1,28,209,48,208 ПВ 
*4040 DATA 164,252,141,152,3,140,153,3 НС +5460 DATA 14,200,202,208,242,24,165,48 ІІ 
*4050 DATA 160,0,185,149,3,32,168,255 НМ +5479 DATA 105,10,133,48,76,132,6,169 BF 
*4060 DATA 200,192,6,208,245,160,0,177 РЕ +5480 DATA 244,133,75,96,32,176,6,160 ОА 
*4070 DATA 251,32,168,255,200,192,32,144 BF -5490 DATA 187,80,254,184,173,1,28,217 JI 
*4080 DATA 246,165,251,105,31,133,251,165 ЕН +5500 DATA 0,1,208,235,200,208,242,162 АЕ 
*4090 DATA 252,105,0,133,252,165,253,105 AG +5519 DATA 252,80,254,184,173,1,28,217 Ср 
*4100 DATA 32,133,253,165,254,105,0,133 HH .5520 DATA 0,4,208,219,200,202,208,241 М, 
*4110 DATA 254,32,174,255,198,255,208,180 EP +553 DATA 198,77,208,182,169,0,240,209 МІ, 


*4120 DATA 96,77,45,87,0,0,32 PK .5540 DATA 169,208,141,5,24,169,161,44 MN 
*4999 REM CODE DOWNLOADED INTO 1541 RAM НІ .5550 DATA 5,24,16,197,44,0,28,48 FL. 
*5000 DATA 120,173,0,28,9,12,141,0 GO .5560 DATA 246,173,1,28,184,160,0,96 HK 
+5010 DATA 28,169,45,133,74,32,210,6 ЕМ +5570 DATA 32,203,6,174,0,28, 232,76 LH 
«5020 DATA 198,74,208,249,162,0,32,217 РМ +558 DATA 217,6,32,213,6,174,0,28 EL 
+5030 DATA 6,169,1,133,34,165,34, 201 GG +5599 DATA 202,138,41,3,133,68,173,0 BP 
+5040 DATA 36,240,12,32,70,5,48,7 MM +5600 DATA 28,41,252,5,68,141,0,28 EL 
+5050 DATA 230,34,32,200,6,240,238,173 НМ +5610 DATA 160,8,162,0,202,208,253,136 01 
+5060 DATA 0,28,41,243,141,0,28,169 Ер +5620 DATA 208,250,96,169,85,141,1,28 СК 


“5070 DATA 236,141,12,28,165,75,240,5 LB +5630 DATA 160,32,208,240,234,234,234,234 PK 
«5080 DATA 41,127,76,200,193,96,32,75 IF -60000 CLOSE15:OPEN 15,8,15:INPUT#15,A$,B 


+5090 DATA 242,133,67,138,10,10,10,10 PO $,C$,D$ LK 
*5100 DATA 10,133,68,173,0,28,41,159 EO .60001 PRINT A$"[SS]"B$"[SS]"C$"[SS]"D$:C 
*5110 DATA 5,68,141,0,28,169,238, 141 GN 106Е15:5ТОР ІМ 
“5120 DATA 12,28,160,0,132,77,165,57 GJ >61000 CLOSE15:0PEN 15,8,15,"10:":5АҮЕ "@ 
«5130 DATA 153,0,3,200,200,165,77,153 OD :FASTNEW.BAS",8:CLOSE 15:STOP KL 
+5140 DATA 0,3,200,165,34,153,0,3 ЕМ «62000 CLOSE 15:0PEN 15,8,15:PRINTÉ15,"M- 
*5150 DATA 200,165,19,153,0,3,200,165 FG — R'CHR$(18)CHR$(0) :GET#15,11$ DP 
*5160 DATA 18,153,0,3,200,169,15,153 GP +62001 PRINT#15,"M-R"CHR$(19)CHR$(() :GET# 
+5170 DATA 0,3,200,153,0,3,200,185 ID 15,125 EO 
+5180 DATA 250,2,89,251,2,89,252,2 EO *62002 PRINT I1$12$ NF 
+5190 DATA 89,253,2,153,249,2,230,77 KN +62004 CLOSE 15:STOP NG 


«5200 DATA 165,77,197,67,144,192,152,72 GB 


15210 DATA 169/3,133,49,32,48,254,108 п MNIVECTIVE 


15220 DATA 168,136, 32,229, 253,32, 245,253 РМ 
+5230 DATA 160,1,162,0,157,0,4,232. нс FROM PAGE 15 


*524() DATA 208,250,169,4,133,49,32,233 DK +10 REM PROGRAM: INVECTIVE JC 
.525/) DATA 245,133,58,32,143,247,169,206 HM +20 REM GEORGE TREPAL BM 
*5260 DATA 141,12,28,169,255,141,1,28 KM •30 REM 2650 ALTURAS RD PO 
«5270 DATA 141,3,28,32,243,6,169,0 OD +40 REM BARTOW, FL 33830 AG 
*5280 DATA 133,50,169,255,141,1,28,162 AM +50 : DI 
«5290 DATA 5,80,254,184,202,208,250,162 ВС +100 GOSUB 1150 FK 


*5300 DATA 10,164,50,80,254,184,185,0 ED +11 POKE53280,12:POKE53281 , 12: PRINT"[CLE 
*5310 DATA 3,141,1,28,200,202,208,243 NN АК)"; KE 
+5320 DATA 162,9,80,254,184,169,85,141 МІ, +120 REM SET UP SCREEN AL 
+5330 DATA 1,28,202,208,245,162,5,169 KA +130 G$(1)="[BLACK]{c B] [YELLOW][6"[s Z 
+5340 DATA 255,80,254,184,141,1,28,202 МН ]"][3" "][e"[s Z]"][4" "][6"[s Z]"][3" " 


*5350 DATA 208,247,162,187,80,254,184,189 PI  ][6"[s Z]"] [BLACK][c B] KN 
+5360 DATA 0,1,141,1,28,232,208,244 GG >140 G$(2)="[BLACK][c B] [BLUE][c +][4" 
*5370 DATA 160,0,80,254,184,177,48,141 PG “Jie «][3" "J[c +][4" "Ile +][4" "][с +] 
12 AHOY! 
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[Л ы” "дезе а] 
K]fc 

:150 “туйук ДО в]"]" 
+169 G$(4)="[BLACK][c B][4" "][YELLOW][s 
2][8" "][s Z]10" "]s Z)[8" "(= 2114" 
"[BLACK][c. в)" LE 
170 PRINT G$(3); CO 6$(2); 6$(2); G$ 
(1); 08(2); 6%2); 

*180 PRINT G$(4); BO а» 6$(2); Si c 


[BLAC 
IB 


*560 REM WIPE OUT PLAYER POSITION NI 
LC +570 PRINT DN$; SPC(SP)" "; LL 
*580 : DI 
+590 REM PRINT NEW PLAYER POSITION oD 
“600 Р-Т ЕВ 
“610 IF J(JV)=1 THEN SP=SP+1 MB 
“620 IF J(JV)=-1 THEN SP=SP-1 FB 


BF +630 IF J(JV)=40 THEN DN$-DN$ + "[DOWN]" АК 


640 IF J(JV)=-40 THEN DN$=LEFT$(DN$,LEN( 


(1); G$(2); G$(2); G$( DN$)-1) LE 
*190 PRINT G$(4); S. P ctt G$(2); m +650 PRINT DN$; SPC(SP)"[s Q]";: RETURN Ір 
(1); 6$(4); 6$(4); 6$(3); CF +660: DI 
*200 : DI +679 REM SCRAMBLE JOYSTICK LB 
*210 REM POKE GREEN POINTS EG *680 IF VT>130 THEN 1050 ED 
*220 СМ-54272: REM CM=COLOR MEMORY KB *690 FOR J=1 TO 4: RN-INT(RND(1)*4)41 GG 
+230 FOR Jel TO 50 DM +700 T-SA(J): SA(J)SSA(RN): SA(RN)=T: МЕХ 
*240 RN = INT(RND(1)*920)41024 PB T GH 
+250 IF PEEK(RN)<>32 THEN 240 LB *710 J(SA(1))=1: J(SA(2))=-1: J(SA(3))=40 
*260 POKE RN, 105: POKE RN4CM,13 KG: J(SA(4))=-40 ER 
*270 NEXT IA *720 GOSUB 900 EB 
*280 : DI +730 : DI 
+290 REM SET JOYSTICK VALUES J() AND SCRA +740 REM POSITION HINTS LH 
MBLE ARRAY VALUES SA() FK +750 PRINT BM$;SPC(13)"[c 2]"; ы 
“300 1(1)--40: J(2)=40: J(4)=-1: J(8)=1 CO 760 FOR 1-1 TO 8 AL 
+310 SA(L)=1: SA(2)=2: SA(3)=4: SA(4)=8 СА *770 IF 1-1 THEN PRINT "UP "; LN 
4320: DI +780 IF 1-2 THEN PRINT "DN "; т 
+330 REM SET UP PLAYER SP=SPACES OVER D +790 IF J=4 THEN PRINT "LT "; LL 
N$2HOW FAR DOWN P=POSITION CI +800 IF Je8 THEN PRINT "ЕТ"; КЕ 
“340 REM BM$=BOTTOM OF SCREEN TI$=TIMER NF +810 IF J(J)=1 THEN PRINT "> "; PG 
«820 IF J(J)=-1 THEN PRINT "< "; FN 


cu PRINT" [HOME ] [DOWN] [WHITE] [ RIGHT] -- 


*360 SP=1; repeat ere ea e ША 
065: TI$2"[5"0" ]1" 
“370 BM$s" [HOME] [ 24" [DOWN ]" ]" : 


Р=1 
п, 


GOSUB 750: 


GOSUB 1000 ММ 
“380: DI 
“390 REM READ PORT 2 JOYSTICK PA 


“400 JV=PEEK( 56320) 
+410 JV=15-(JVANDI5) 
“420 PRINTBM$;"[WHITE]SCORE ";SC; EL 


*830 IF J(J)240 THEN PRINT "V[ СШ "Тү DP 
*840 IF J(J)=-40 THEN PRINT HE " 

j PF 
“850 NEXT IA 
"860 POKE 53280,2: POKE 53281,2: FOR DL= 

1 TO 80: NEXT EG 
“870 POKE 53280,12: POKE 53281,12 NO 
*880 : DI 
*890 REM SCRAMBLE SOUND KE 


900 POKE 54296,15: POKE 54276,17: POKE 5 


+430 VI-VAL(TI$): IF VI/15=INT(VT/15)THEN 4277,15: POKE 54273,60 HP 
GOSUB 680 IO +91 FOR 01=1 TO 25:NEXT. BG 
+440 IF JV=0 THEN 400 LA +920 РОКЕ 54296,0: POKE 54276,0: RETURN ЕВ 
+450 : DI +936 : DI 
*46( REM FIND CHARACTER MOVED TO MB -940 REM YELLOW HIT KD 
“470 T=P+J(JV) ED +950 POKE 54296,15: POKE 54276,33: POKE 5 
«480 CH=(PEEK(T)) AB 4277,15: POKE 54273,40 KL 
+490) IF CH=32 THEN GOSUB 570: GOTO 400: +960 FOR DL=1 TO 25:NEXT BG 
REM BLANK SPACE СЕ +970 POKE 54296,0: POKE 54276,0: RETURN ЕВ 
+500 IF СН=105 THEN 5С-5С%10: GOSUB 570: *980 : DI 
GOSUB 1000: GOTO 400: REM GREEN SCORE ЈН +990 REM GREEN SOUND IN 
+510 REM BLUE JOYSTICK SCRAMBLE РМ +1000 POKE 54296,15: POKE 54276,17: POKE 
*520 IF СН-102 THEN GOSUB 570: GOSUB 680: 54277,15: РОКЕ 54273,30 KA 
8С-8С-20: С0Т0400 EL «1010 FOR DL-l TO 25:NEXT BG 
*530 IF СН-90 THEN SC-SC-50: GOSUB 570: G -1020 POKE 54296,0: POKE 54276,0: RETURN ЕВ 
OSUB 950: GOTO 400: REM YELLOW SCORE | DP -1030 : DI 
+540 6070400 CA -1040 REM END GAME OE 
+550: DI +1950 PRINT"{CLEAR][8"[DOWN]"]";SPC(15) 3" 


http: 


SCORE ";SC OF 
"1060 FOR J=1 TO 4: GOSUB 900: GOSUB 950: 
GOSUB 900 PI 
+1070 GOSUB 1000:NEXT DI 
“1080 PRINT"[4"(DOWN]"] PRESS JOYSTICK B 
UTTON TO PLAY AGAIN" BF 
“1090 GA 
+1100 Е N 
*1110 IF FR - 16 THEN 1090 ED 
*1120 GOTO 110 DM 
“130: DI 
“1140 REM INTRO DH 
+1159 PRININGTANTIC EAR] [DOWN ]":POKE 532 
80,0: POKE СА 
+1169 S toad NI 
*1170 PRINTSPC(12)"BY GEORGE TREPAL[DOWN] 


[DOWN |" 
1180 PRINTSPC(11)"[c 616 
" 
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*1190 PRINTSPC(10)"[DOWN][ YELLOW]YELLOW = 
-50 POINTS" 


*1200 PRINTSPC(2)"[DOWN][c 7]BLUE = -20 P 
OINTS AND SCRAMBLES THE" JP 
“1210 PRINTSPC(16)"JOYSTICK[DOWN]" ТА 
“1220 PRINTSPC(2)"[CYAN]THE JOYSTICK IS S 
CRAMBLED EVERY 15" NN 
*1230 PRINTSPC(2)"SECONDS WHETHER YOU HIT 
BLUE OR NOT" cD 


“1240 PRINTSPC(5)"[DOWN]THE JOYSTICK GOES 
IN PORT #2" 
1250 PRINTSPC(7)"[DOWN]THE GAME LASTS 90 


SECONDS" AC 
+1260 PRINTSPC(5)"[DOWN]PRESS THE FIRE BU 
TTON TO PLAY" EJ 
+1270 JV=PEEK (56320) GA 


*1280 FR=JVAND16 AN 
*1290 IF FR = 16 THEN 1270 EH 
1300 RETURN IM 


files like the following: 
* Editorial calendar for 
Upcoming issues 


* Excerpts from future edi- 
tions of Scuttlebutt 


Call us the modern way— 
on Ahoy!’s Bulletin Board System! 


it your computer is equipped with a modem, you can сай Ahoy/s Bulletin Board System any hour 
of the day, any day of the week to exchange electronic mail with other Commodore users or download 


= Corrections to programs |” Program disk and 


and articles subscription information 
* Detailed descriptions * Classified 
of back issues. advertising 


Set your modem tor 300 baud, full duplex, no parity, 1 stop bit, 8-bit word length, and dial away! 
System Configuration of Ahoy! Bulletin Board System; 


‘Dual Disk Drive Impact Printer Mo Auto Modem Sakata SC-100 Color Monitor. 
toms, Inc. Fidelity Electronics, Ltd, US! International ‘Sakata U.S.A. Corporation 
10031 Monroe Street=Ste. 208 8800 N-W, Зб Street Park Lone 651 Bonne Lana 
Dallas, TX 75229 Miami, FL 33178 Brisbane, CA 94005. "X Grove Vilage, IL 60007 
Phone: 263574434 Prone: 305-504-1000 Phone: 415-463-4900. Phone: 312802211 
0 Unl-Keol C-100 Computer Pad Computer Stands #8033 & #0640 
A World of Paste, Lia, UncKool. Neswater Products, ite. Royal Seating 
Lane 909 Wiamson Loop 53 Border Street 0. Box 753. 
Еж Grove Vilage, IL 40007 Grants Pass, OR 97526 West Newton, МА 02165 Cameron, TX 76820 
Phone: 2128291638 Prone: 312-800-2525 Phone: 6179648370. Phone: 817-607-6421, 


Phone: 503-476-1080, 


CALL TODAY: 


718-383-8909 


OMING IN THE OCTOBER AHOY! (ON SALE SEPTEMBER 3 


Е AND IN 
LIVING COLOR 
TURN YOUR C-64 SPRITES 
INTO FULL COLOR 
ANIMATED CHARACTERS 


П4 AHOY! 


htt ww.oldgamesitalia.net 


INFINITESIMAL 
INTRIGUE 
COMPUTER EXPLORATIONS 
OF SUB-MICROSCOPIC 
ACTIVITY 


PROGRAMMING 
BIT BY BIT 
PERFORMING SINGLE BIT 
MANIPULATIONS ON 
BINARY NUMBERS 


http://www.oldgamesitalia.net/ 


DON’T MISS THE BOAT! 


SUBSCRIBE 
TOAHOY! 


(Send me twelve issues of AHOY! for $19.95 
($26.95 Canada & elsewhere). I unders- 
tand that I will be billed later. 


O Send me twenty-four issues of AHOY! for 
$37.95 ($49.95 Canada & elsewhere). I 


understand that I will be billed later. 
NAME 
ADDRESS 
CITY 
STATE sm ZIP 


READER SERVICE CARD 


To request additional information on any product advertised or otherwise pictured in this issue of Ahoy! 
that is accompanied by a reader service number, circle the corresponding number below and mail this 
card. We will promptly forward your request to the designated companies. 


101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 
131 132 133 134 135 136 137 128 139 140 141 142 143 144 145 146 m 148 149 150 151 152 153 154 155 156 157 158 159 160 
161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 INN 189 190 
191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 210 
211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 290 231 232 233 2M 235 236 237 238 299 240 
241 242 243 244 245 246 247 148 249 250 251 252 253 154 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 170 
271 272 273 274 275 276 277 278 279 280 231 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 


PLEASE ANSWER THE QUESTIONS BELOW. 


ме 
male B O female 


а 
а 
а 


college graduate 


mast 
phd 


jers degree 


From which of the following sources did you obtain your 
copy? 

KO newsstand N D subscription (mail) 

L О from a friend or family member 

M © other 


1f not currently а subscriber, do you plan to become one? 
1Oys JOno 
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THE BETTER LETTER BOX 


Introducing EasyPlex: The new, 
easy-to-use electronic mail system 
from CompuServe. 


Finally! Electronic Mail thats so easy to 
{ise you can start composing and sending 
messages the first time you get online. 


Designed for various experience levels, 
EasyPlex has a menu mode with simple, 
easy-to-follow directions for beginners, 

and it lets experienced users save time by 
working in the prompt or command modes. 
With EasyPlex, you can compose, edit send, 


options previously available only with more 
expensive servic 
CompuServe’ EasyPlex lets friends and 
relatives, associations and club members 
communicate any time of the day or night 
And small business owners, real estate 
professionals, insurance agents, lawyers, 
writers, etc. can communicate quickly and 
-either interoffice or interstate. 
“Just Plex it!” 


Best of all, EasyPlex is available to ай 
CompuServe subscribers. And, along with 
EasyPlex, you get hundreds of valuable and 
entertaining computing options. Plus the 
assurance of belonging to the largest, fastest 


growing computer information service in 
the world and the premier supplier of 
business information to FORTUNE 500 
companies. 

Start communicating! To buy a 
CompuServe Subscription Kit see your 
nearest computer dealer. To receive our 
informative brochure or to order direct, 
call or write: 


CompuServe’ 


Information Services, PO. Box 20212 
5000 Arlington Centre Blvd. Columbus, Ohio 43220 


800-848-8199 
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